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CLIPPER. THE dBASE COMPILER. 
A WINNING PERFORMANCE EVERY TIME. 
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MARK WILLIAMS C. 





AN ENLIGHTENING —— 





If you've tried your hand at 
developing applications on the Atari 
ST, you know the problem. Pro- 
gramming tools aren’t only hard to 
come by, they’re hard to use. One 
might even say primitive. But now 
for some enlightening news: you 
can have all the power, portability 
and versatility of the C language 
from a leader in professional C pro- 
gramming tools, Mark Williams. 


BRING YOUR 
PROGRAMMING UP TO SPEED. 


The Mark Williams C compiler yar b 
produces fast, dense code and supports the <».. 
complete Kernighan & Ritchie industry stan- 
dard C. You'll have access to GEM’s AES and VDI 
libraries for programs using graphics, icons and the 
Atari mouse. And Mark Williams C lets you take 
advantage of the full 16 megabytes in Atari’s 68000 
microprocessor. 


STREAMLINE DEVELOPMENT 
WITH POWER UTILITIES. 


Mark Williams C is loaded with everything you'll 


need for professional development. Bring the power 
of the UNIX environment to your Atari ST with our 


Features Microshell Command Processor, 
C compiler powerful UNIX style shell includes 
¢ Complete Kernighan & /0 redirection, pipes, command 
Ritchie C plus extensions substitutions , 

¢ Up to eight register variables MicroEMACS Full Screen Editor 

e Full access to AES and VDI with commented source code 


libraries for programs using “cluded SNe ier ie 
graphics, icons and mouse Make Program Building Discipline 


© Complete UNIX-compatible Complete symbolic debugger 
libraries allow easy portability With single-step, breakpoints and 


to and from UNIX development Stack traceback | 
environment. Assembler, linker and archiver 


¢ Over 300 Atari-specific Powerful Utilities Package: egrep, 
routines sort, diff, cmp, pr, tail, unig, wc 


¢ One-step compiling, linking and more 

with cc command Over 600 pages of documentation 
¢ English error messages including 120 sample C programs 
e Lint-like error checking Not copy protected 


MARK WILLIAMS C FOR THE ATARI ST 


$179.95 
60 DAY MONEY BACK GUARANTEE 














Microshell Command Processor 
including pipes, I/O redirection and 
more. Edit your program with the 
highly acclaimed MicroEMACS full 
“4 screen editor. Accelerate and simplify 
S “ compiling with make which finds 
aS and recompiles only those modules 
i} lit I affected by your changes. Then, 
when you're ready for debugging, 
call on our db Symbolic Debugger 
with single step, breakpoint and 
stack traceback functions. Over 40 
commands, including a linker and 
assembler, provide a total development 


4632 
JS package for your Atari ST. 


DEPEND ON A NAME WITH 
A HISTORY OF PERFORMANCE. 


Mark Williams C for the Atari ST is part of our growing 
line of C compilers. A line that includes the C compiler 
chosen by DEC, Intel, Wang and thousands of profes- 
sional programmers. Now our Atari C compiler is 
earning its own reputation: 

“Finally a great C compiler that exploits the power 
of the ST’-Sigmund Hartmann, President, Atari 
Software Group 

“The all-around best choice for serious software 
development on the ST.’—Douglas Weir of AVALOG 
COMPUTING 


GET WHAT YOUR ATARI ST HAS BEEN 
WAITING FOR. 


Mark Williams C is just what your Atan ST was 
made for: powertul, professional 
programming. So now that you 
can have Mark Willams C for just 
$179.95, what are you waiting for? 

Ask your Atari dealer about 
Mark Williams C or order today by 
calling 1-800-MWC-1700.* 

“In Illinois call: 312-472-6659 


Mark 
Williams 
Company 
1430 West Wrightwood, Chicago, Illinois 60614 


© 1986, Mark Williams Company 
UNIX is a trademark of Bell Labs. 
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DEMOS, TUTORIALS, 
PROTOTYPES, PRESESTA 
TIMED KEYBOARD ACROS, AND 
MENU SYSTEMS 


Instant Replay memorizes how you ran your 
Moldy seceiMeb lees eich ihe naes ioackaoce me Blonle .ece) eae 
Keystrokes and pause times, inserted prompts, pop-ups 
and prototypes are all memorized. 


Screen Painter for creating 100% user designable pop-ups 
and Menu Windows. "Excellent, intuitive, easiest-to-use 
screen generator reviewed" PC Magazine . 


Run-Time Screen Scanner and File Scanner for creating Menu 
systems and presentations. 


Screen Grabber so you can edit and include any screen. 


Text Editor - fast, full function, with pull-down menus that can be tailored. 
Memorize it and distribute it as a Demo! 


200 Page Manual, 4 diskettes, 60 Day money back guarantee. 
(Not Copy Protected) 


Call or Write. We accept Visa, Amex, Master Card. COD PO 


MWeaicr Inquiries Welcome: 


— manrreonvnssoss Nostradamus 
—_—__. Vemeo Diskette tant gon PTO 


—... Wealer Poster S 3.00 Nostradamus Inc. / 5320 South 900 East, Suite 110 


SLC, Utah 84117 / Order by phone (801) 261-0769 


For IBM PC / XT / AT and True Compatibles 
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About the Cover 

Nick Turner generated the color 
pixels on a plain old Apple II; Mi- 
chael Hollister and photographer 
Michael Carr transferred them to 
the glistening surface of a half- 
pound of liquid mercury to si- 
multaneously symbolize and 
achieve the blending of technolo- 
gy and art. 


This Issue 

The release of the Apple IIGS this 
fall (see Nick’s brief report in 
Running Light, page 8) is spark- 
ing consumer interest in comput- 
er graphics, but to programmers 
the arrival of graphics chips that 
can provide up to 10,000-fold 
speed increases may be even 
more intriguing. Our lead article 
shows how to use the new chips 
from Intel and TI in your pro- 
grams. We also present a digital 
dissolve routine that selects the 
most appropriate from among 
three algorithms, and a clever 
Macintosh graphics application 
in 68000 assembly language. 


Next Issue 
December is Operating Systems 
month at DDJ. The new 80386- 
based computers have got us in- 
trigued with multitasking, and 
next month we'll publish the 
task scheduler component of a 
multitasking operating system 
for PC-class machines. 
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LANGUAGES THAT ARE CAUSING THE BIGGEST 
opar IN HISTORY ARE ALSO 
iN OUR POCKETS. 








Whether it’s BASIC, COBOL, 
Pascal, “C”, or a data base manager, 


Programs that are easy to use. 
Programs that are a pleasure to 


youre being held back. write. 
Held back because the language And to you that means true 
has frustrating limitations,and the _ satisfaction. 
programming environment isn’t You've coveted those nifty pop-up 


help windows some major applica- 
tions feature. But you can’t afford 
the time and energy it takes to 


intuitive enough to keep track of 
what you're working on. 
In the real world, there's pres- 


sure to do more impressive work, in —_ write them into your programs. 
less time, and for more clients. That’s the way it used to be. 
We've been given some incredibly So we fixed that, too. 
werful hardware in recent times, CLARION’s HELPER is an 
ut the languages aren't a whole lot _ interactive utility that let’s you 
better than they were 20 years ago. design the most effective pop-up 


help screens that you can imagine. 

And they’re “context sensitive, 

meaning you can have help for 

pect field in your application. 
nlike the other micro 


So, whatever language you have 
chosen, by now you feel it’s out to 
get you — because it is. 

Sure, no language is perfect, but 
you have to wonder, “Am I getting 


all I deserve?” languages, CLARION provides 
And, like money, you'll never declarations, procedures, and 
have enough. unctions to process 


Pretty dismal, huh? 
We thought so, too. 
So we did something about it. % 


dates, strings, 
~<—— screens, reports, 
_ Indexed files, 

















We call it CLARION: DOS files and 
You'll call it ‘tncredible.”’ memory tables. 
Distributed on 7 diskettes, 


CLARION consists of over 200,000 
lines of code, taking 3+ years to 
hone to “world-class” performance 
With CLARION you can 
write, compile, run and debug 
complex applications ina 
New York afternoon. 
Even if you're in Savannah. 
It gives you the power and 
S to create screens, windows 
and reports of such richness and 
clarity you would never attempt 
them with any other language. « 
Because you would have to 
write the code. 
With CLARION you simply 
design the screens using our 
SCREENER utility and then 
CLARION writes the source code 
AND compiles it for you in seconds. 
Likewise, you can use 
REPORTER to create reports. 
Remember, only CLARION can 
recompile and display a screen or 
report layout for modification. 
d with no time wasted. 
All the power and facilities you 
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CLARION 


A4ST/6 


1-800-354-5444 


need to write great programs, faster 
than you ever dreamed of. Rae Ne nom 
BARRINGTON INC. 


Imagine a source pr 
changes with the CLARION EDI- 
TOR. A single keystroke termi- 
nates the EDITOR, loads the COM- 
PILER, compiles the oe loads 
the PROCESSOR and executes the 
program. It’s that easy! 

_ Our data management capabili- 
ties are phenomenal. C IN 
files permit any number of compos- 
‘ ca which are updated dynami- — 


cally. 

A file may have as many keys as 
it needs. Each key may be com- 
posed of any fields in any order. 
And key files are updated when- 
ever the value of the bs changes. 

Like SCREENER and RE- 
PORTER, CLARION’s FILER utility 
also has a piece of the CLARION 
COMPILER. To create a new file, you 
name the Source Module. Then you 
name the Statement Label of a file 
structure within it. 

FILER will also automatically 
rebuild existing files to match a 
changed file structure. It creates a 
new record for every existing rec- 
ord, copying the existing fields and 
initializing new ones. 

Sounds pretty complicated, huh? 
Not with CLARION’s docu- 
mentation and ondine help 
screens. If you are currently 
competent in BASIC, Pascal 
» or “C” you can be writing 
CLARION applications in a 
im day. In two days you won't 
~ believe the eloquence of your 
CLARION programs. 
Okay, now for the best 
all. You can say it in CL 
for $295.00—plus shipping and 


rt of 
IN 


handling. All you need is an IBM® PC, XT, 
AT or true compatible, with 320 KB of 
memory, a hard disk drive, and a parallel port. 
And we'll allow a full 30 day evaluation 


od. If ee not satisfied with 
CLARION, simply return it in its 


igh condition for a full refund. 
you're not quite ready to take 
advantage of this no-risk 
opportunity, ask for our detailed 16 
page color brochure. It vividly 
illustrates the elegance of 
CLARION. Consider it a preview of 
programming in the fast lane. 

ither way, the 800 call’s a freebie. 


150 EAST SAMPLE ROAD POMPANO FLORIDA 33064 305/785-4555 








IBM is a registered trademark of International Business Machines Corporation. CLARION™ is a trademark of Barrington Systems, Inc. ©1986 Barrington Systems 
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about programming. 
Martin recently polled 
“experts on program- 
ming languages’’ (in- 
| cluding, I assume, pro- 
fessional software 
_. developers) and found 
few who even recog- 
nized the names of the 
most powerful fourth- 
generation languages. 
If opi uanciations languages are 
perceived as being bad languages in 
some sense—if, for example, they are 
seen as imposing too great a perfor- 
mance cost—maybe that explains 
their being ignored. Unfortunately, 
their being ignored means in turn that 
if the perception is wrong it will get 
corrected only slowly and if it is right 
the 4GLs’ problems will get corrected 
slowly, because they won't benefit 
from the useful feedback of those ex- 
perts who understand their faults. 
There are signs that fourth-genera- 
tion languages may have been chang- 
ing while unobserved and may de- 
serve another look. Fourth- 
| generation languages are no longer 
restricted to mainframes and mini- 
computers. Vendors of fourth-gener- 
it | ation languages for micros acknowl- 
ic | edge some performance limitations 
of past 4GLs but claim that today’s 
_| products produce fast, efficient code. 
They claim that any perception that 
fourth-generation languages are un- 
worthy of the attention of serious 
software developers, if it was ever 
correct, is no longer. 

Perhaps we should all take a look at 
this claim and at modern fourth-gen- 
eration languages. At the very least, 
we should recognize that 4GLs need 
not be just elaborated database 
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mer even more dan the strong data 
typing of Modula-2. Laid on top of 
See constraints would be con- 
































generatio snags Sey 

Most 4GLs are ee lan- 
‘guages, appropriate in only a limited 
domain. They at least discourage, if 
‘not prohibit, low-level access to ma- 
chines. They are designed to produce 
easily maintained code quickly. 

If we believe Prentice-Hall’s human 
book machine, James Martin, most 
4GLs are remarkably unknown 
among those who know the most 
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® PC-DOS, MS-DOS, CP/M-86, Macintosh, Amiga, Apple Il, CP/M-80, Radio Shack, 
Commodore, XENIX, ROM, and Cross Development systems 


Manx Aztec C86 
“A compiler that has many strengths ... quite valuable 
for serious work” 

Computer Language review, February 1985 
Great Code: Manx Aztec C86 generates fast executing 
compact code. The benchmark results below are from a 
study conducted by Manx. The Dhrystone benchmark 
(CACM 10/84 27:10 pl1018) measures performance for a 
systems software instruction mix. The results are with- 
out register variables. With register variables, Manx, 
Microsoft, and Mark Williams run proportionately faster, 
Lattice and Computer Innovations show no improve- 
ment. 


Execution Code Compile/ 
Time Size __ Link Time 


Dhrystone Benchmark 
Manx Aztec C86 3.3 34 secs 5,760 
Microsoft C 3.0 34 secs 7,146 
Optimized C86 2.20) 53secs 11,009 
Mark Williams 2.0 56secs 12,980 
Lattice 2.14 89 secs 20,404 


93 secs 
119 secs 
172 secs 
113 secs 
117 secs 


Great Features: Manx Aztec C86 is bundled with a powerful 
array of well documented productivity tools, library routines 
and features. 

Optimized C compiler 
AS86 Macro Assembler 
80186/80286 Support 
8087/80287 Sensing Lib 
Extensive UNIX Library 
Large Memory Model 

Z (vi) Source Editor -c 
ROM Support Package-c INTEL HEX Utility -c 
Library Source Code -c Mixed memory models -c 
MAKE, DIFF, and GREP -c Source Debugger -c 

One year of updates -c CP/M-86 Library -c 


Symbolic Debugger 

LN8&6 Overlay Linker 
Librarian 

Profiler 

DOS, Screen, & Graphics Lib 
Intel Object Option 

CP/M-86 Library -c 


Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c are 
special features of the Aztec C86-c system. 


Aztec C86-c Commercial System 
Aztec C86-d Developer’s System $299 
Aztec C86-p Personal System $199 
Aztec C86-a Apprentice System $49 


All systems are upgradable by paying the difference 
in price plus $10. 


Third Party Software: There are a number of high qual- 
ity support packages for Manx Aztec C86 for screen 
management, graphics, database management, and soft- 
ware development. 


C-tree $395 
PHACT $250 
HALO $250 Amber Windows $59 
PRE-C $395 Windows for C $195 
WindScreen $149 FirsTime $295 
SunScreen $99 = C Util Lib $185 
PANEL $295 Plink-86 $395 


$499 


Greenleaf $185 
PC-lint $98 


OLN TP aria: ie cathe TM of Bell Laboratories, Lattice TM Lattice Inc.. C-tree TM Faircom, Inc., PHACT 


inc., C-terp, PC-lint TM GIMPLE Sottware, Windscreen, SunScreen TM Sunfec, 


PANEL TM Roundhill Computer Systems Ltd., WINDOWS FOR C TM Creative Solutions, 


Manx Aztec C68k 


“Library handling is very flexible ... documentation is 
excellent ... the shell a pleasure to work in... blows 
away the competition for pure compile speed ... an ex- 
cellent effort.” 

Computer Language review, April 1985 


Aztec C68k is the most widely used commercial C com- 
piler for the Macintosh. Its quality, performance, and 
completeness place Manx Aztec C68k in a position be- 
yond comparison. It is available in several upgradable 
versions. 
Optimized C 
Macro Assembler 
Overlay Linker 
Resource Compiler 
Debuggers 
Librarian 

Source Editor 
MacRam Disk -c 
Library Source -c 


Creates Clickable Applications 
Mouse Enhanced SHELL 
Easy Access to Mac Toolbox 
UNIX Library Functions 
Terminal Emulator (Source) 
Clear Detailed Documentation 
C-Stuff Library 

UniTools (vi,make,diff,grep) -c 
One Year of Updates -c 


Items marked -c are available only in the Manx Aztec 


C86-c system. Other features are in both the Aztec C86-d 
and Aztec C86-c systems. 


Aztec C68k-c Commercial System $499 
Aztec C68d-d Developer’s System $299 
Aztec C68k-p Personal System $199 
C-tree database (source) $399 


AMIGA, CP/M-68k, 68k UNIX call 


Manx Aztec C65 


“The AZTEC C system is one of the finest software 
packages I have seen” 
NIBBLE review, July 1984 


A vast amount of business, consumer, and educational 
software is implemented in Manx Aztec C65. The quality 
and comprehensiveness of this system is competitive 
with 16 bit C systems. The system includes a full optim- 
ized C compiler, 6502 assembler, linkage editor, UNIX 
library, screen and graphics libraries, shell, and much 
more. The Apple II version runs under DOS 3.3, and 
ProDOS, Cross versions are available. 

The Aztec C65-c/128 Commodore system runs under 
the C128 CP/M environment and generates programs for 
the C64, C128, and CP/M environments. Call for prices 
and availability of Apprentice, Personal and Developer 
versions for the Commodore 64 and 128 machines. 


Aztec C65-c ProDOS & DOS 3.3. $399 
Aztec C65-d Apple DOS 3.3 $199 
Aztec C65-p Apple Personal system $99 
Aztec C65-a for learning C $49 
Aztec C65-c/128 C64, C128, CP/M $399 


Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and ex- 
clusive distributor of Aztec C. Any telephone or mail 
order sales other than through Manx are unauthorized. 


- Tad fy of of INTOSH, 
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Cross developed programs are edited, compiled, assem- 
bled, and linked on one machine (the HOST) and trans- 
ferred to another machine (the TARGET) for execution. 
This method is useful where the target machine is slower 
or more limited than the HOST, Manx cross compilers 
are used heavily to develop software for business, 
consumer, scientific, industrial, research, and education- 
al applications. 3 


HOSTS: VAX UNIX ($3000), PDP-11 UNIX ($2000), MS- 
DOS ($750), CP/M ($750), MACINTOSH ($750), 
CP/M-68k ($750), XENIX ($750). 


TARGETS: MS-DOS, CP/M-86, Macintosh, CP/M-68k, 
CP/M-80, TRS-80 3 & 4, Apple II, Commodore C64, 
8086/80x86 ROM, 68xxx ROM, 8080/8085/Z80 ROM, 
65xx ROM. 

The first TARGET is included in the price of the HOST 
system. Additional TARGETS are $300 to $500 (non 
VAX) or $1000 (VAX). 

Call Manx for information on cross development to the 
68000, 65816, Amiga, C128, CP/M-68K, VRTX, and 
others. 


Manx Aztec CI 


“I’ve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I've seen.” 

80-Micro, December, 1984, John B. Harrell III 


Aztec C II-c (CP/M & ROM) $349 
Aztec C II-d (CP/M) $199 
C-tree database (source) $399 
Aztec C80-c (TRS-80 3 & 4) $299 
Aztec C80-d (TRS-80 3 & 4) $199 


How To Become an Aztec C User 


To become an Aztec C user call 1-800-221-0440 or call 
1-800-832-9273 (800-TEC WARE). In NJ or outside the 
USA call 201-530-7997. Orders can also be telexed to 
4995812. 

Payment can be by check, COD, American Express, 
VISA, Master Card, or Net 30 to qualified customers. 

Orders can also be mailed to Manx Software Systems, 
Box 55, Shrewsbury, NJ 07701. 


How To Get More Information 

To get more information on Manx Aztec C and related 
products, call 1-800-221-0440, or 201-530-7997, or write 
to Manx Software Systems. 


30 Day Guarantee 

Any Manx Aztec C development system can be return- 
ed within 30 days.for a refund if it fails to meet your 
needs. The only restrictions are that the original pur- 
chase must be directly from Manx, shipped within the 
USA, and the package must be in resalable condition. 
Returned items must be received by Manx within 30 
days. A small restocking fee may be required. 


Discounts 

There are special discounts available to professors, 
students, and consultants. A discount is also available on 
a “trade in” basis for users of competing systems. Call for 
information: 


APPLE TM APPLE, ING, Pre-C, PLINK 86, TM PHOENIX, HALO TM Media Cc 
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ple Il system, has ju 
been introduced. T e 
first batch of these 
platinum-cased beau- 
ties, with their 65816 


and sound, and the IIGS li 


time Apple did something to really 

spark the II line. Now the balli isin our 
court; we're the software designers, 
and it’s our efforts that will directly 
influence the success or failure of 
this new machine. 


In every issue oo DDJ, jencerd: the 
middle of the magazine, there’s an in- 
sert with some tear-out cards. The top 
two cards are subscription cards. (You 
don’t have a subscription? You know 
what to do.) The third card is very spe- 
cial: it's where you have a chance to 
talk directly to us. Your comments on 
that card are collected every month | 
into a stack. The problem is, each 
month the stack is only about an inch 
high. We would love to see that stack 
or 
even a small hill. So get out your pen - 
or pencil and rip out that little card. 
We want to know what you think of 


all the ans 


We have some really interesting 
themes coming up in future issues. 
Our May issue, for example, will fo- 
cus on computer music. Who makes 
the best computer music? What ma- 
chines are the most musical? Is MIDI 
the only way to interface? What's 
hottest and newest? We've never 
done a music issue before, so we es- 
pecially need to hear from authors 
and experts as soon as possible. Call 





me at (415) 366-3600 if 
ou have any ideas. 

In June welll be 
looking at telecommu- 
nications. A lot has 


last telecom issue. If 
your Te working on 


! , perhaps you 
article to write 
We're especial- 


e | ly interested in material about high- 

| speed communications. Is there any- 
body who would like to write about 
fiber optics? What about a piece on 


how to program a signal processor 


CPU? Anything new in data compres- 


sion or error detection/ correction? 
Call me with ideas. 

- Our July issue, once again, will be 
full of Forth. We encourage all you 
dedicated and persistent Forthians to 
take part as you have in the past. Re- 
cently we've been able to increase 
our coverage of Forth—Michael 
Ham’s contributions in particular 
have added a special flavor to the 
magazine (thank you, Mike!). Let's 
put together a really great seventh 
annual Forth issue. 

_ August will be our C issue, and Sep- 


tember will deal with algorithms. 
We're also thinking about covering 


fourth-generation languages in Sep- 


tember. What do you think? Should 


we cover them? Would you like to 
write an article? _ 

_ Allin all, 1987 promises to be a ban- 
ner year for DDJ. We're consistently 
receiving more high-quality article 


| submissions than ever before. Your 


voices are being heard, both in the 
Letters column and in your direct 
phone calls to me. Let’s keep improv- 
ing together. 


Wik Gv 


Nick Turner 


editor 
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Large model C compiler 


performs like big-name brands 
includes free C tutorial 


‘“‘As good as or better than most of the heavyweights...” 
DR. DOBB’S, August 1986 


The DATALIGHT C COMPILER isa 
full-implementation of the C language 
as defined in The C Programming 
Language by Kernighan and Ritchie. 
Supporting five memory models, 
DATALIGHT C has very fast compile, 
link, and execution times with a 
minimum of memory required. Our 
special introductory price is only $99 
for the DEVELOPER'S KIT. 


Optimize Your Code Generation 


Now you can produce highly opti- 
mized code in the standard Intel object 
module format. The optimizations 
performed include common subex- 
pression elimination, branch optimi- 
zations, constant folding, strength 
reductions, dead-code eliminations, 
and switch table compaction. 


Five Memory Models Supported 


DATALIGHT C provides five mem- 
ory models so you can use the model 
that best suits your application. 


Memory Models 
Model Code Data 
Compact 64k total code & data 
Small 64k 64k 
Program 1M 64k 
Data 64k 1M 
Large 1M 1M 


Compiling, One step... 


Now with the one step DLC program 
you can compile, link, and create a 
COM file. Also, one or more files can be 
compiled and linked using DLC. 


Complete Library 
Includes Source Code 


The UNIX compatible library includes 
complete source code. Experienced 
programmers can use the source code 
to configure and rebuild the library to 
suit the application. 


Concise Documentation Included 


The DATALIGHT C COMPILER and 
DEVELOPER'S KIT include a concise, 
to the point, programmer’s manual. 
The 210-page manual is contained in 
an IBM-style three-ring binder which 
includes nine chapters, appendices, 
index, and easy to follow examples. 


Datalight 


BOX 82441 
KENMORE, WA 98028 
(206) 367-1803 





Circle no. 203 on reader service card. 


30-DAY MONEY-BACK GUARANTEE 


Try our DEVELOPER’S KIT for 30 
days, and if you do not find it to be 
equal to, or better than, any compiler 
you have, or are using, then you may 
return it for a full refund. Also, if you 
return the compiler within 30 days, 
you may keep the C tutorial, a $39 
value, for trying our DEVELOPER’S 
KIT. 


Introductory Prices 
DATALIGHT C without source $60 


(compact & small memory model support) 


DEVELOPER'S KIT with source $99 


(five memory models supported) 


Not Copy Protected 


ORDER TOLL-FREE TODAY! 
_ 1-(800) 221-6630 
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*SPECIAL OFFER! 


ORDER the DEVELOPER'S KIT by 
December 31, 1986 and receive FREE... 





‘Combines print and software 
technology to create the most inte- 
grated new type of training system I 
have ever seen.’ 


ADAM GREEN, INFO WORLD 
January 27, 1986 


“C:A Programming Workshop” is a 
complete C language learning package 
with an integrated compiler and 
screen editor. Learn the C language 
with tutorials, quizzes, and program 
exercises. 


Add $5 for shipping in US/$15 outside US 
COD (add $2.50) 


*Limited offer available exclusively to readers 
who purchase directly from DATALIGHT. 


Magazine Reviewers Shocked by 
DATALIGHT’S PERFORMANCE... 


‘Reviewing this compiler was quite a surprise for 
us. For such a low price, we were expecting a 
‘lightweight’ compiler. What we got was a package 
that is as good as or better than most of the 
“heavyweights.” DATALIGHT C implements a 
complete C language. It also compiles quickly, 
doesn’t take up much disk space, and looks 
impressive in the benchmarks:’ 


DR. DOBB’S, August 1986 


“This isa sharp compiler! ...what is impressive 
is that DATALIGHT not only stole the compile time 
show completely, but had the fastest Fibonacci 
executable time and had excellent object file sizes 
to boot!” 


Chris Skelly, COMPUTER LANGUAGE 
February 1986 


DEVELOPER'S KIT (VERSION 2.12) 


Full UNIX System 5 C language plus ANSI extensions. 

¢ Fast/tight code via powerful optimizations including 
common sub-expression elimination. 

¢ DLC one step compile/link program. 

¢ Multiple memory model support. 

¢ UNIX compatible library with PC functions. 

¢ Compatible with DOS linker and assembler. 

¢ Third-party library support. 

¢ Automatic generation of .COM files. 

¢ Supports DOS pathnames, wild cards, and Input/ 
Output redirection. ; 

¢ Compatible with Lattice C version 2.x. 

¢ Interrupt handling in C. 

¢ Debugger support. 

¢ ROMable code support/tart-up source. 


MAKE Maintenance Utility 


¢ Macro definition support. 

¢ MS-DOS internal commands. 
¢ Inference rule support. 

¢ TOUCH date manager. 


Tools in Source Code 










¢ cat—UNIX style “type” 

¢ diff—Text file differences 

¢ fgrep—Fast text search 

¢ pr—Page printer 

¢ pwd—Print working directory 
¢ wc—Word count 


FORUM 


LETTERS 





July Forth 

Dear DDJ, 

Thank you for the Forth is- 
sue, with some interesting 
and thought-provoking es- 
says. I was even more grati- 
fied by the promise of 
more to come. I am sure 
you realize the vacuum we 
of the Forth community 
are discovering ourselves 
in. The language is far 
from dead, but meaningful 
forums appear to be on the 
endangered list. 

Thank you for Mike 
Ham's column. Mike is one 
of the truly erudite spokes- 
men for Forth. It is a plea- 
sure to see he has a plat- 
form as respected as DDJ 
from which to share his 
views. 

I might add I have en- 
joyed comments from both 
Mike and Ray Duncan on 
the DDJ Forum on Compu- 
Serve. I look forward to 
seeing their insight on fu- 
ture pages of DDJ. 

Again, thank you. 

Gary Smith 

P.O. Drawer 7680 

Little Rock, AR 72217 


Dear DDJ, 

The first sentence of 
George W. Shaw II's “Ex- 
tended Control Structures’’ 
(July 1986), ‘‘The control 
structures in the Forth 83 
Standard leave something 
to be desired,” is an opin- 
ion that I stated three years 
ago in my paper refer- 
enced by Shaw. Since then 
I have realized that it was 
not the control structures 
that left something to be 
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desired but my knowledge 
of how to use them to write 
clear and understandable 
programs. The standard 
control structures are just 
fine, and new structures 
are unnecessary. 

Shaw is making the same 
mistake that I made three 
years ago. Because Forth 
does not have all the con- 
trol structures that other 
structured languages have, 
I thought something was 
missing. But Forth does not 
need other control struc- 
ture words. 

Shaw’s examples of ex- 
tended logical structures 
are all instances of unsim- 
ple logic. He acknowledges 
that they are useful only 10 
percent of the time. In 
Forth, when the logic be- 
comes the least bit compli- 
cated, it is time to factor the 
complication out and give 


it a name telling what it 
does (but not how it does it). 
This is also a good idea in 
other languages. If this is 
done to Shaw's examples 
involving BEGIN and IF, his 
LEAVES can simply become 
EXIT THEN. 

In traditional Forth sys- 
tems, the same factoring 
cannot be done with exam- 
ples involving DO. The self- 
styled Forth 83 Standard 
says that EXIT “may not be 
used within a DO loop.” 
Rather than introduce 
new, novel, little-used, and 
hard-to-teach logic struc- 
tures, let’s stick to the struc- 
tures that are already pro- 
vided but remove the 
above-mentioned clause 
and allow EXIT to be used 
anywhere in a definition. 
This is easy to imple- 
ment—either check com- 
piler security or increment 
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a counter for each DO, dec- 
rement it for each LOOP or 
+LOOP, and make EXIT 
smart enough to know 
how many loops to undo. It 
will also remove a restric- 
tion in the language and 
make Forth easier to learn 
and use. The awkwardness 
that Shaw ascribes to han- 
dling his tithe of logic dis- 
appears by removing nar- 
row restrictions imposed 
on existing words, not on 
defining new words. 

Without giving any justi- 
fication, Shaw asserts that 
the new Forth 83 DO loop is 
better than the Forth 79 DO 
loop. There are many who 
disagree. I do agree that the 
immediate LEAVE is bet- 
ter—it makes it convenient 
to observe the restrictions 
of structured program- 
ming. I also agree that 
LEAVE should work with 
BEGIN as well as with DO. 
But Shaw's argument that 
LEAVE is always followed 
by THEN and so should 
have a variation that im- 
plies THEN also applies to 
EXIT, QUIT, and ABORT. 
Rather than select one, 
some, or all of them for spe- 
cial consideration, leave 
well enough alone. The in- 
variable THEN aids the 
reader to see the overall 
logical structure in a 
definition. 

The natural meaning of 
LEAVES, found in some 
Forths, is that 2 LEAVES es- 
capes two loops, 3 LEAVES 
escapes three loops, and so 
on. 

Shaw’s scheme for ex- 
tending IF is intended to be 
general, but it does not al- 
low nesting. 

Wil Baden 

339 Princeton Dr. 

Costa Mesa, CA 92626 


Software Taxation 
Dear DDJ, 
I read with interest the edi- 


Dr. Dobb’s Journal, November 1986 


Feel the power 
of VAX/VMS 
for a lot less... 


PCVMS. 








If you’ve written applications software on a VAX computer 
system, you already know about the power and flexibility of 
DEC’s VMS operating system. Now, PCVMS puts the features of 
VAX/VMS on the IBM PC. 

Designed specifically for applications programmers, PCVMS is 
a true multitasking, multiuser operating system that supports the 
most popular programming languages with resources you won't 
find in any other system for the same price. As powerful as it is 
easy to use, PCVMS offers a rich set of commands with easy-to- 
remember names like ALLOCATE, ASSIGN, COPY and DELETE. 
Like VAX/VMS it has a HELP command, which provides on-line 
documentation about commands, services and other topics. It 
also has built-in command prompting, so if you don’t give all the 
information required for a command, the system will prompt 
you for the information you left out. 

In addition to its powerful command set, PCVMS has over 80 
system services, including enhanced system services that can be 
called from high level languages like BASIC, Fortran, Pascal, and 
C, as well as from assembly language. Using these enhanced 
services, you can create multiuser database, spreadsheet, and 
word processing programs that take full advantage of VAX/VMS 
system services. At the same time, PCVMS gives you multilevel 
protection that prevents services called by one process from 
inadvertently affecting or destroying other processes. 

What it finally comes down to is this: if a VAX computer is Out 
of your reach, now you can reach out and grab the power of a 
VAX for your PC with PCVMS. 


PCVMS. From Wendin. Only $99. 


ORDER HOTLINE 


Fe (509) 235-8088 


eeNe®, wa 99004 ~~ (MON.-FRI., 8-5 PACIFIC TIME) 


The people who make quality osercar 
software tools affordable. Woy = 
Circle no. on reader service card. 





© Copyright 1986 Wendin, Inc. 











Ask about our other products 
for the IBM PC and true 
compatibles. 


PCNX™ 


True multitasking, multiuser 
operating system similiar to AT&T's 
popular UNIX® operating system. 


OPERATING SYSTEM 
TOOLBOX™ 


Complete software construction set 
that lets you build your own 
multitasking, multiuser operating 
systems. 


XTC® 


The ultimate programmer’s editor. 
Multitasking macro language plus 
multiple linkable windows and 
buffers. 


All products priced at $99 
with source code included. 


DEALER INQUIRIES WELCOME 


Foreign orders inquire about shippin 

Domestic orders add $5.00/1st item, ; .00 each 
additional item for shipping, handling, and 
insurance. We accept Visa/MC, American 
Express, COD, and Bank Drafts drawn on 

U.S. Banks. 

Washington residents add 7.8% sales tax. 


MS is a trademark of Microsoft, PC-DOS is a 
trademark of IBM. UNIX is a trademark of AT&T. 
VAX/VMS is a registered trademark of Digital 
Equipment Corporation. 


Wendin and XTC are registered trademarks of 
Wendin, Inc. PCNX, PCVMS, Operating System 
Toolbox, and Personal Operating System are 
trademarks of Wendin, Inc. 


LETTERS 
(continued from page 10) 


torial and the lead letter in 
the July 1986 DDJ. The for- 
mer complains that soft- 
ware is not enough of a 
“thing” that its sale should 
be subject to sales tax. The 
latter observes that soft- 
ware is enough of a thing 
that we can talk of the 
rights of ownership in it. 

A software author’s pri- 
mary concern should be 
that the state recognize and 
protect his relationship to 
the thing he has created. To 
the extent that a state pro- 
tects this relationship, the 
author has a “property” in- 
terest. If the author trans- 
fers all or part of that right 
to another person, he has 
transferred a thing, albeit 
an intangible one. Once the 
state recognizes the exis- 
tence of a thing and defines 
the rights that a person has 
in that thing, assorted laws 
can come into play. The 
state may invoke its crimi- 
nal laws to protect the own- 
er from wrongful depriva- 
tion of the right to use and 
enjoy the software. The 
Owner may invoke conver- 
sion, trespass, or a host of 
other civil actions to recov- 
er exclusive use and enjoy- 
ment or to force the wrong- 
doer to pay for his deed. 
The alternative is to hold 
that property rights do not 
attach to software. If the 
state will not protect any 
person's relationship to a 
given piece of software, it 
may be freely ‘‘trans- 
ferred” in voluntary and in- 
voluntary (unilateral) 
transactions. 

Once we determine that 
property has been trans- 
ferred in a commercial 
transaction, the decision to 
apply or not to apply a state 
sales tax becomes a policy 
decision. Perhaps there are 
reasons that the states 
should not tax commercial 
transactions in software. I 
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find the blatant assertion | 


that it is “grossly unfair’ to 
be unconvincing. It is not 
immediately evident that a 
sales tax on software is 
more or less invidious that 
the same tax on file cabinets 
or electricity. 

My own crusade is to 
persuade legislatures and 
courts that laws should be 
written and interpreted to 
break away from the eigh- 
teenth-century notion that 
the law protects only tangi- 
ble things. For that reason I 
applaud laws and regula- 
tions that treat software as 
a thing in which individ- 
uals can have property 
rights. Those of us who cre- 
ate and use software stand 
to gain much more than 
we lose. 

Simon B. Buckner 

1605-D Jefferson Heights 

Jefferson City, MO 65101 


The Last Square 
Root Letter? 

Dear DDJ, 

The July 1986 Letters col- 
umn contained a letter by 
Dorothy Wolfe that con- 
cerns my “Square Roots on 
the NS32000” article pub- 
lished in The Right to As- 
semble, March 1986. Wolfe 
has a criticism to which I 
would like to respond. 

Wolfe points out that, ac- 
cording to my definition of 
the (integer) square root as 
the smallest of two nearly 
equal factors, ‘“‘the square 
root of 17 (or of any prime 
number) would be 1.” The 
following should apply to 
any prime number; I will 
use the example of 17. 

The problem seems to in- 
volve the meaning of the 
word integer. In the con- 
text of integer arithmetic, 
the term integer implies a 
number that may have a 
nonzero decimal compo- 
nent, but the decimal com- 
ponent is not represent- 
ed—that is, 17 divided by 4 
equals 4. In the context of 
prime numbers, the term 


integer implies a number 
that has a zero decimal 
component that is repre- 
sented. In this context 
Wolfe’s comment is valid. 
The only integer factors of 
17 are 1 and 17— that is, 17 
divided by 4 equals 4.25. — 
However, there are 
many factors of 17—1 and 
17, 2 and 8:56 F-and 
5.666..., 4 and 4.25, 5 and 
3.4, 6 and 2.833 ..., for ex- 
ample. The two ‘‘most 
nearly equal factors’’ 
above are 4 and 4.25, of 
which 4 is the smallest and 
is therefore the integer 
square root of 17. The “ex- 
act’’ square root of 17 is 
4.12310...—this is, of 
course, another factor. 
Richard A. Campbell 
198 Washington Hwy. 
Snyder, NY 14226 


Update 

Dear DDJ, 

Let me compliment you on 
your commitment to pro- 
viding in-depth coverage 
of MS-DOS C compilers. I ea- 
gerly awaited this year’s 
August offering and read it 
with great interest and in 
great detail. 

I discovered that ‘‘Bench- 
marking C Compilers” by 
Richard Relph et al. unfor- 
tunately provided uneven 
coverage of the important 
issues and omitted infor- 
mation about many of the 
advanced features of Mark 
Williams Co.’s C compiler 
products. 

A few of the product fea- 
tures omitted from the dis- 
cussion of MWC’s C Pro- 
gramming System were: 


1. Full support for recent 
extensions to C, including 
void, enum, and structure 
rule extensions. 

2. A powerful make utility 
and a Unix-style cc com- 
mand that provides one- 
step compiling and linking 
and accepts wildcards. 

3. An automated install 
procedure that provides 


unparalleled ease of instal- 
lation. 

4: An environment vari- 
able that provides full 
search path capabilities. 

5. An assembler, linker, 
and archiver, all included 
at no extra charge. 

6. A set of advanced, Unix- 
style file utilities, including 
diff, egrep, cmp, sort, tail, 
pr, and many others. 


Mark Williams Co. pro- 
vides cross compilers, C 
compilers, and operating 
systems to many of the 
largest computer manufac- 
turers for 8086, 68000, 
Z8000, Z80, VAX, and other 
types of hardware. 

Barry D. Bowen 

Mark Williams Co. 

1430 W. Wrightwood 

Chicago, IL 60614 


We will publish updates 
about the C compilers we 
have reviewed as often as is 
necessary. The DDJ Elec- 
tronic Edition on Compu- 
Serve will contain even 
more information about 
these products.—eds. 


Correction 
Dear DDJ, 
Ray Duncan's July 1986 16- 
Bit Software Toolbox con- 
tains a statement that Com- 
puter Innovations’ Version 
1.31 C compiler is now in 
the public domain. This is 
incorrect. As I’m sure you 
realize, the ramifications of 
announcing free software 
to the public, when in truth 
it is not, only adds to the 
problem of preventing soft- 
ware piracy. It also is quite 
distracting for us because 
readers have been calling 
and asking for copies. 

I appreciate your coop- 
eration in this matter. 

Keith Wimberley 

Computer Innovations 

Inc. 

980 Shrewsbury Ave. 

Tinton Falls, NJ 07724 

(201) 542-5920 

DDJ 
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SAS Institute Inc. 
Announces 





Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System —regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development. 
began and progressed rapidly. 


Today... 
Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

™@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

@ Generated code executable in both 

24-bit and 31-bit addressing modes. You 

can run compiled programs above the 

16 megabyte line in MVS/XA. 

Generated code identical for OS and 

CMS operating systems. You can move 

modules between MVS and CMS 

without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 
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routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


C, the language of 
choice... , 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


i want to learn more about: 


0 the C compiler for MVS software developers 
0 the C compiler for CMS software developers 
© the cross-compiler with PLINK86 and PLIB86 


today...so I’ll be ready for tomorrow. 


Please complete or attach your business card, 
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Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. 
27511-8000. Telephone (919) 467-8000, x 7000 
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Sets and Microsoft C, Version 4 


Sets in C 

‘ve been writing a book on com- 
I piler design of late. Unlike most 
such books, this one is going to in- 
clude a lot of code. It will explain 
how various algorithms work by pre- 
senting real code to implement those 
algorithms. Not wanting to secrete all 
this useful stuff until the book is final- 
ly published, I’m going to publish an 
occasional excerpt from time to time, 
starting this month. 

Many of the operations involved in 
compiler writing, such as creating 
state-machine tables from regular ex- 
pressions, involve operations on sets, 
and C, unlike Pascal, doesn’t have a 
built-in set capability. Fortunately, it’s 
not too hard to implement sets in C by 
means of bit maps—as several people 
pointed out to me when bit-map rou- 
tines were first published in this col- 
umn (DDJ, June 1985). In fact, the Pas- 
cal implementations I've seen actually 
use bit maps to implement their sets. 
The bit-map routines that were print- 
ed last year aren't quite general-pur- 
pose enough for real set applications, 
so I've expanded them into the rou- 
tines presented this month. 

To use the set routines, you have to 
#include set.h (Listing One, page 58) at 
the head of your program. Most of the 
set functions are macros that evaluate 
to workhorse-function calls. The mac- 
ros and subroutines are shown in Ta- 
bles 1 and 2, page 20. 

All the elements in the set must 
have numeric values, though in many 
instances any arbitrary number will 
do. Enumerated types are almost ide- 


by Allen Holub 








al for this purpose, though #defines 
can be used too. For example: 


typedef enum 


{ 


JAN, FEB, MAR, 
APR, MAY, JUN, 
JUL, AUG, SEP, 
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OCT, NOV, DEC 


MONTHS; 


creates 12 potential elements of a set. 
You can now create two sets called 
winter and spring by using the set op- 
erations: 


#include <set.h> 
SET *winter, *spring; 


winter = newset ); 
spring = newset ); 


add( JAN, winter ); 
add( FEB, winter ); 
add( MAR, winter ); 
add( APR, spring ); 
add( MAY, spring ); 
add( JUN, spring ); 


Set operations can now be performed 
using the other macros in set.h. For 
example, disjoint(winter,spring ) eval- 
uates to true because the sets have no 
elements in common; equivalent(win- 
ter,spring) evaluates to false for the 
Same reason. A third set that contains 
the union of spring and winter can be 
created with: 


half_year = newset! ); 
union( half_year, winter, spring ); 


Intersection( half_year, winter, 
spring); creates a null set because 
there are no common elements. The 
test( ) and main( ) routines in set.c 
(lines 261—332 of Listing Two, page 
62) contain additional examples. 
Complemented sets present a par- 
ticular problem. You'll notice that the 


eventual size of the set doesn’t have 
to be known when the set is created. 
The set size is just expanded as ele- 
ments are added to it. This can cause 
problems when you complement a 
set because the complemented set 
should contain all possible elements 
except those that are in the equiva- 
lent, uncomplemented set. For exam- 
ple, if you’re working with a “‘lan- 
guage’ that’s composed of the set of 
symbols {A, B, C, D, E, F, G} and you 
create a second set {A,C,E,G} from ele- 
ments of the language, the comple- 
ment of this second set should be 
{B,D,F}. That is, the complement 
should be all the symbols in the lan- 
guage except those that are in the 
original, uncomplemented, set. 

All sets are represented as bit 
maps, and these maps are of finite 
size. Moreover, the actual size of the 
map grows as elements are added to 
the set. You can complement a set by 
inverting the sense of all the bits in 
the bit map, but now you can’t ex- 
pand the set’s size dynamically any 
more (at least not without a lot of 
work). To guarantee that a comple- 
mented set contains all the potential 
elements, you have to first expand 
the set size by adding an element 
that’s one larger than any possible le- 
gitimate element and then comple- 
ment the expanded set. A second 
problem has to do with extra ele- 
ments. The bit-map size will usually 
be a little larger than the number of 
potential elements in the set. If you 
just complement bits, you will effec- 
tively add members to the set. On the 
plus side, set operations (union, inter- 
section, and so on) are much easier if 
you physically complement the bits 
in a map. 

An alternate method of comple- 
menting the set is to have negative- 
true sets and positive-true sets. Here 
you Can just mark a set as negative or 
positive by setting a bit in a header. 
You don't have to modify the bit map 
at all. When you test for member- 


Dr. Dobb’s Journal, November 1986 





Unleash The Most Powe 





Development'Tools | 
OnThe Planet DOS. 





UNIFY DBMS/DOS.The UNIX World Leader 
Brings A New Dimension To DOS Application Development. 


What happens as the DOS world expands? As a 
new generation of hardware takes over? As networking 
becomes more important? The potential is enormous. 
But until now, the tools to achieve it have been limited. 

Now a leader from another world unleashes that 
potential: UNIFY® DBMS. The leading relational 
DBMS in the UNIX™ world. And now, the most 
advanced set of application development tools in the 
DOS world. 

With UNIFY DBMS, DOS developers have new 
power to build more sophisticated applications than ever 
before possible. 

The power to write high performance “C” 
programs that will access the data base, using 
Unify’s Direct Host Language Interface. 

The power of an industry standard 
query language—SQL. 

The power of unmatched speed in pro- 
duction applications. Only UNIFY DBMS is 
specifically engineered for transaction through- 
put. With unique performance features like 
PathFinder™ Architecture multiple access meth- 
ods, for the fastest possible data base access. 





au See 


ae us at | 
@ COMBE Fall '86 


November 10-14, 1986 
Las Vegas Convention Center 


Las Vegas, Nevada 


© 1986 Unify Corporation. UNIX™ is a trademark of AT&T Bell Laboratories. 


The power of comprehensive pro- 
gram development and screen man- 
agement tools. Plus a state- : 
of-the-art fourth generation ere. 
report-writer. < A 

What’s more, with UNIFY *. 
DBMS, the potential of networked  ~ 
applications becomes a reality. Unlike 
DBMS systems which were originally 
single-user (and which have a long stretch 
to accommodate more users), UNIFY DBMS 
is a proven multi-user system. 

And because UNIFY DBMS/DOS is 
the best of two worlds, it offers you the most 
powerful benefit of all: DBMS applications that 
can grow as your needs grow. From single user 
DOS. To networked DOS. To multi-user UNIX. 
All without changing your applications. 


Call the Unify Information Hotline 
for our free booklet: The New DOS World. 
(503) 635-7777 


UNIFY 


CORPORATION 


4000 Kruse Way Place 
Lake Oswego, OR 97034 


Circle no. 176 on reader service card. 





ech Person 


Tech PC Twin Multiuser 
Starting From $1699 
Tech PC/XT base unit with 640K, and two 360K disk drives. 


Two high resolution monitors, two selectric style Hi-Iek 
keyboards, 50 feet of shielded cable to separate the 
two stations. 

System supports up to six printers. 


Full software support with multi-level file, security, electronic 
message facility to send and receive messages between users, 





password logon system, and system operator command level. 


_ System supports all popular software such as Wordstar, 
dBaselll, Lotus 123, Multimate, etc. 


THIRD PARTY MAINTENANCE 
AVAILABLE THROUGH 


Computer's 


Tech PC Triad Multiuser 


Starting From $2599 


Tech PC/XT base unit with 640K, and two 360K disk drives. 
Separate Intel 80188 microprocessor running at 8 MHz and 
512K for each terminal. 


Three high resolution monitors, three Selectric style Hi-Iek 
keyboards, 50 feet of shielded cable to separate the three 
stations. 


System expandable to 32 workstations. 
System supports up to six printers. 


Full support for multitasking multiterminal use with print 
spooling for multiple pririters, background monitoring of the 
system, dial up bulletin board support, passwork protection, 
and file/record locking supporting PC Network protocol. 


System supports all popular software such as Wordstar, 
dBaselll, Lotus 123, Multimate, etc. 


MOMENTUM SERVICE CORPORATION 


pi bi 4 pet iy ib Soe. 
Meri ai awiak Rae ee? 


2 





IBM, IBM XT are registered trademarks of International Business Corporation. 


























Tech PC Quad Multiuser 
Starting From $4499 


Tech Turbo PC/AT base unit in portable or desktop configura- 
tion with 512K, multiple serial ports, three Tech PC terminals, with 640K, mule serial ports, fluee > Tec 1 


connecting cables, and networking software. connecting cables, and networking so! 
Four users expandable to nine users over dumbterminalsor Separate NEC V20 8088 Intel compatible 8} 
PC’s with terminal emulation software. to 1 MB RAM for each terminal on the sj 


Capacity for up to 16 printers at remote sites with up to6local + Two fully functional serial ports per term. 
printers attached to the main unit. Four users expandable to 32 users over d 
Each user can access 512K of RAM with memory expansion PC’s with terminal emulation softwa 
boards. unlimited number - — a - 


Full support for multitasking multiterminal use with print _ 
spooling for central or terminal printing, background 
monitoring of the system, dial up bulletin board support, 
password protection, and File/Record locking using PC 
etwork protocol. 


System supports all popular software such as Wordstar, dBaselll, Lotus 123, Multienate etc. - 
dBaselll, Lotus 123, Multimate, etc. 


PTEOHS Fe 714/385-1711 Se 


1911 Betmor Lane, Anaheim, California 92805 | oo 
Telex 272006 Answer Back - TECH FAX: 714-5568325 | oe 


Users only circle no. 279 on reader services card. Dealers only circle no. 245 on reader service card. 


C CHEST 
(continued from page 14) 


ship, if a set is marked negative-true, 
you can just reverse the sense of the 
test (evaluate to true if the requested 
bit is not set). Though this takes care 
of all the size problems, operations 
on negative-true sets are much hard- 
er to perform. 

Because the two representations 
are both useful but in different appli- 
cations, I decided to implement both 
methods. The invert(d,s1) macro per- 
forms a one’s-complement on all bits 


currently in the set’s bit map. Note 
that if new elements are added, the 
new bits won't be complemented. 
You should always expand a set out 
to the maximum number of elements 
(by adding and then removing the 
largest element) before inverting it. 
The complement(d) macro imple- 
ments the second method discussed 
earlier. It doesn’t modify the bit map 
at all; rather it sets a bit in a header to 
mark a set as negative-true. 

Because there are two different 
classes of sets (those that are comple- 
mented and those that are inverted), 
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there are also two different macros 
for testing membership. Ismem- 
ber(x,s) evaluates to 1 only if the bit 
corresponding to the requested ele- 
ment is actually set to 1. Ismem- 
ber(x,s) can’t be used reliably on 
complemented sets. The test(x,s) 
macro can be used with comple- 
mented sets. If a set is complemented, 
the sense of the individual bits is re- 
versed as part of the testing process. 
If the set isn’t complemented, test( ) 
works just like ismember( ) does 
(though it’s a little larger and takes a 
little longer to evaluate). 

Note that the various set operations 
(union, intersection, and so on) are val- 
id only on inverted sets. The set_op( ) 
routine ignores the complement bit 
in the SET header, treating all oper- 
ands as if they were positive-true 
sets. Use invert( ) if you're going to 
perform subsequent operations on 
the inverted set. 


Implementation 

Sets are represented as SET struc- 
tures, defined on lines 9—17 of List- 
ing One as: 


typedef struct 
unsigned nbytes : 13 ; 
unsigned compl : 1; 
int nbits; 
unsigned char *map; 
unsigned char defmap[DEFBYTES]; 


SET ; 


The set itself is represented as a bit 
map, pointed to by the map field of 
the structure. Initially map points at 
the defmap array. If more elements 
are added to the set than can fit into 
defmap, a larger bit map is allocated 
automatically and map is made to 
point at the larger bit map. This way 
you don't have to worry in advance 
about the maximum size of a set. The 
bit-map size is automatically in- 
creased as the set grows larger. The 
bit map is not made smaller if ele- 
ments are removed, however. 
Nbytes and nbits keep track of the 
number of bits and bytes in the map. 
Nbits is always nbytes * 8. The compl 
field is used to mark a set as negative- 
true (it’s 1 for negative-true sets, 0 for 
positive-true sets). 

The add, remove, ismember, and 
test macros all access the bit map di- 
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rectly. They are all passed a bit num- 
ber and a pointer to a SET. Most of the 
work is done in the GBIT macro (on 
line 46), which is passed a set pointer, 
bit number, and an operator. The 
((s)—>map)[(x) >> 3] part of the 
macro selects the proper byte of the 
bit map. The right shift is a divide-by- 
eight. Note that the right shift would 
have caused problems if I hadn't de- 
fined the bit map as unsigned char. 
There would have been sign exten- 
sion if the high bit happened to be set. 
The second part of the macro, 1 << 
((X) & 0x07), creates a mask that cor- 
responds to the requested bit by shift- 
ing the number 1X % 8 bits to the left 
by (the MOD is done with a bitwise 
AND operation here). Note that it’s the 


delset (s) 
*newset () 


num_ele (s) 


number 1 that’s being shifted, not the 
contents of the bit map. The actual 
operation is then performed by ap- 
plying a specific operator to the 
mask. If the operator is / =, a bit is set 
in the map. If the operator is &, a bit is 
tested for true. If the two operators 
&= and ~ are passed, then a bit is 
cleared. 

The three macros that use GBIT test 
to see if a bit is legal (if the bit number 
is too large, 0 is returned). If the num- 
ber is in range, they invoke the GBIT 
macro, passing it the correct opera- 
tor. Add is an exception. If the re- 
quested bit number is too large, it 
evaluates to a call to the subroutine 
addset( ), which increases the size of 
the set and then invokes the GBIT 
macro to set the proper bit in the 
newly expanded bit map (addset is 
on lines 84—94 of Listing Two). Note 


Deletes a ‘set created with a previous newset( ) 
S, _ command. 


Creates anew set and returns elther a boinier to the 
_ set or NULL if there wasn’t enough memory. 


Returns the number of elements in " set—O if the 


"S: set is empty. 


set_cmp (s1,s2) _ 
*s1, oe, 


The workhorse function used by the equivalent( ) and 
-_disjoint() macros. Compares two sets; returns 0 if 


they're equivalent, 1 if they're disjoint, 2 if they 


set_op(op, d, $1, $2) 
Oo other macros defined in Table 2. You should use 


G.'S\, Se; 


subset ($1, $2); 
"S|. Sa. 


Table 1: Set subroutines 


assign(d,s1) 
clear(d) 
complement(d) 
difference(d,s1 
disjoint(s1,s2) _ 
common). 
equivalent(s1 $2) - 
invert(d, $1). 
fill(d) 
intersection(d, s1 82) 
union(d,s1,s2) 


The following four macros have side effects. Don’t use + +, 


invocations and so on as either argument. 
add(x,s) 
remove(x,s) 
ismember(x,s) 
test(x,s) 


Copies s7 into d. 
Clears all elements of d yielding the cooly set. 
Complements set d (see text). 
_ a@=s7 *s2(symmetric difference). 
Evaluates to 1 if s7 and s2 are disjoint a no elements in 


intersect but aren’t equivalent. 


‘Another workhorse function, used by the various 


these macros rather than calling this function directly. 


Returns true if s7 is a subset of s2. Always returns 
true when s7 is empty. 





Returns 1, if the two sets are equivalent 
Does a one’s complement of all bits in bit map. 
Sets all elements of d to 1. 

d = the intersection of s7 and s2. 

d = the union of s7 and s2. 


— —, or subroutine or macro 


Adds a member, x, to set s. 

Removes element x from set s. 

Evaluates to true /f x is a member of set s. 

Like ismember( ) but works on both complemented and non- 


complemented sets (see text). 


Table 2: Set macros 
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that test just evaluates to an ismember 
invocation, inverting or not inverting 
the result depending on whether 
(s)—>compl is true. Also note that 
had I said: 


(s)— >compI! ? ! ismember‘x;s) 
: ismember‘(x,s) 


the macro would expand to almost 
twice as much code as it does in its 
current form. 

The assignment operations all eval- 
uate to set_op( ) calls, and the test op- 
erations all evaluate to set_cmp( ) 
calls. Set_op( ) is on lines 181— 229 of 
Listing Two. It goes through the bit 
map, one byte at a time, performing 
various bitwise operations as needed. 
A bitwise AND does an intersection 
operation, OR does a union, and so 
on. Note that symmetric difference is 
an exclusive-OR (x is an element of 
set1 and is not an element of sef2). 
Set_op( ) normalizes the set sizes be- 
fore the operations are performed. 
That is, all three sets will be made as 
large as the largest of the three. This 
normalization can cause problems if 
you use the invert operation because 
invert just reverses the sense of all 
bits in the map. This means that ele- 
ments are effectively added to the set 
if its size has been increased and 
these elements will all have a zero 
value. 

The set_cmp( ) routine (Listing 
Two, lines 121—152) is a little trickier 
than set_op( ). It also normalizes the 
set sizes and goes through the bit 
maps one byte at a time. If the while 
loop on line 140 terminates with disj 
still set to 0, then the sets are exactly 
equivalent (the test on line 142 will 
fail for all bytes in the map). The ex- 
clusive-OR operation on line 144 is be- 
ing used as a bitwise not-equals oper- 
ator. The test evaluates to 0 only if no 
two bits in the same position in both 
bytes are set. 


The Microsoft C Compiler, 
Version 4.0 

First the good news. I've finally re- 
ceived my copy of Microsoft C, Ver- 
sion 4.0, and am quite pleased with it. 
It's a significantly better product 
than is Version 3.0; in fact, all the 
problems I had with Version 3.0 have 
been addressed in 4.0. All the bugs 
that I know about (including ones 
that various readers mentioned to 
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First High-Speed DBMS 
written exclusively for C applications 
is also Transportable 


‘“db_VISTA™ lets you easily build complex databases with many interconnected record types...” 
Dave Schmitt, President, Lattice, Inc. 


H igh-Speed data retrieval and access, 
are the result of db_VISTA’s unique 
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transportability and efficiency. 


Independent Benchmark proves 
High-Speed model 2.76 times faster 


An independent software developer 
benchmarked db_ VISTA against a leading 
competitor. Eleven key retrieval tests were 
executed with sequentially and randomly 
created key files. 


*Result of 11 Key Retrieval Tests 


Royalty-Free Run-Time 


Whether you're developing applications 
for a few customers, or for thousands, the 
price of db_ VISTA is the same. If you are 
currently paying royalties for a competi- 
tor’s database, consider switching to db__ 
VISTA and say goodbye to royalties. 


FREE Technical Support 
For 60 days 


Raima’s technical support program 
includes 60 days of free telephone support, 
60 days of free software updates, and 
complete documentation. Technical sup- 
port personnel are available to answer 
questions about our software or yours. 
Extended technical support available. 
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Database Record and File Sizes 

¢ Maximum record length limited only 
by accessible RAM | 

¢ Maximum records per file is 16,777,215 

¢ No limit on number of records or set 
types 

¢ Maximum file size limited only by 
available disk storage 

¢ Maximum of 255 index and data files 


Keys and Sets 
¢ Key length maximum 246 bytes 
¢ No limit on maximum number of key 
fields per record—any or all fields may 
be keys with the option of making 


db_ VISTA :671.24 seconds : : 
a ; each key unique or duplicate 
Leading Competitor :1,856.43 seconds Order Schedule *No ‘ont es maga eae number of 
ae 3 fields per record, sets per database, or 
db_ VISTA’s high-speed database model Ro ene : 
lets you precisely define relationships to LU Single-user $195 $195 Sie eee — 1b f 
minimize redundant data and only those LU Single-user with Source $495 $495 ae he les eine ae eae 
functions necessary for operation are in- J Multi-user $495 $495 permet tecers pee pet eet 
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corporated into the run time program. 


Transportable DBMS Applications 
: with db_ VISTA 


To give your applications maximum 
transportability every line of code for db__ 
VISTA is written in C and complete source 
code is available. db_ VISTA operates on 
most popular computers with over 10 oper- 
ating systems supported. So whether you 
write applications for micros, minis, or 
mainframes. ..db_ VISTA is for you. 


How db_ VISTA works... 


db_ VISTA uses your C compiler to build 
the run-time program. The programmer's 
interface to db_ VISTA is syntactically 
consistent with the C language. 

To use db_ VISTA design then compile the 
schema with the database definition 
language processor (DDLP). Test your 
design with the Interactive Database 
Access program provided. re your C 
application with appropriate calls to db__ 
VISTA. Compile and link your C program 
with the db_ VISTA run-time library, and 
your application is ready to run. 


Multi-user and LAN capability 

Information often needs to be shared. 
db_ VISTA has multi-user capability and 
supports simultaneous users in either 
multi-tasking or local area networking 
environments, allowing the same C appli- 
cations to run under UNIX and MS-DOS. 


db_QUERY™ lets you ask more 
of your database 


db__ QUERY is a linkable, SQL-based ad 
hoc query and report writing facility. It’s 
also royalty-free. 
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CORPORATION 





High-Speed Programming Tools Transportable by Design 


Not Copy Protected 


30-Day Money-Back Guarantee 


Try db_ VISTA for 30 days and if not fully 
satisfied, return it for a full refund. 


Call Toll-Free Today! 


Order Line 1-800-327-2462 
Information Line 1-206-828-4636 


“VISA. 


Read what others say 
about db_ VISTA 


“If you are looking for a sophisticated C 
programmer’s database, db_ VISTA is it. In 
either a single or multi-user environment, 
db_ VISTA lets you easily build complex 
databases with many interconnected record 
types. The multi-user implementation 
handles data efficiently with a LAN, and 
Raima’s customer support and documen- 
tation are excellent. Source code availabil- 
ity and a royalty-free run-time is a big plus:’ 

Dave Schmitt, President 
Lattice, Inc. 


‘Not ‘yet another user-friendly database; 
it is a DBMS aimed at the technical C 
programmer instead of the non-technical 
end-user.’ 
Hal Schoolcraft, Data Based Advisor 
March, 1985 
“On the whole, I have found db_ VISTA easy 
to use, very fast with a key find, and 
powerful enough for any DBMS use I can 
imagine on a microcomputer: 


Michael Wilson, Computer Language 
September, 1985 





3055-112th Avenue N.E. 
Bellevue, WA 98004 USA 
(206) 828-4636 Telex: 9103330300 


Circle no. 206 on reader service card. 


Operating System 
& Compiler Support 
+ Operating system’s MS-DOS, PC-DOS, 
UNIX, XENIX, SCO XENIX, UNOS, 
ULTRIX, VMS | 
¢C compiler’s Lattice, Microsoft, 


DeSmet, Aztec, Computer Innova- 
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Features 

¢ Multi-user support allows flexibility to 
run on a local area network 

¢ File structure is based on the B-tree 
indexing method and the network 
database model 

¢ Run-time size, variable—will run inas 
little as 64K, recommended RAM size 
is 256K 

¢ Transaction processing assures 
multi-user database consistency 

¢ File locking support provides read 
and write locks on shared databases 

¢ SQL-based db__QUERTY is linkable 

¢ File transfer utilities included for 
ASCII, dBASE optional 


Utilities 
¢ Database definition language processor 
¢ Interactive database access utility 
¢ Database consistency check utility 
¢ Database initialization utility 
¢ Multi-user file locks clear utility 
¢ Key file build utility 
¢ Data field alignment check utility 
¢ Database dictionary print utility 
¢ Key file dump utility 
¢ ASCII file import and export utility 





*The benchmark procedure was adapted from 
“Benchmarking Database Systems: A Systematic 
Approach” by Bitton, DeWitt and Turbyfill, 
December 1983. 
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me) have been fixed. Spawn( ) now 
works as it’s supposed to, *Z doesn't 
cause problems with the input func- 
tions or fseek( ), and the correct code 
is generated in mixed-model pro- 
grams. Many of the inexplicable and 
hard-to-duplicate bugs in the shell 
have magically disappeared. I recom- 
piled the shell and utilities with no 
difficulties. In fact, the shell became 
about 2K smaller and noticeably fast- 
er in places. Because I could dispense 
with the spawn( ) work-around, 
batch file execution sped up by about 
25 percent. 

The error recovery has improved 


Flotsam and J etsam 


Starting this month I’m adding a new 
feature to C Chest, a sort of Holub’s 
helpful hints for C programmers. Ev- 
ery month (hopefully) there will be a 
short inset article that discusses some 
part of the language that’s liable to be 
useful to both beginning and ad- 
vanced C programmers. If you've a 
helpful (and short) hint of your own, 
send it in. This month I’m going to 
look at the problem of nested com- 
ments and at how to get rid of all 
those unsightly 4ifdef DEBUGs that 
clutter up your code. 

Comments don't nest in C. Conse- 
quently, a fragment such as: 


i 
code’ ); 
more! ); 


4 


/* comment */ 


won't perform as expected. The */ 
on the second line will terminate the 
/* on the first line. The more( ); sub- 
routine will be compiled, and the */ 
on line 4 will generate a ‘missing 
open comment’ error message. This 
problem is usually circumvented us- 
ing the mechanism: 


#ifdef NEVER 
code(); /* comment */ 
more’ ); 

#endif 


Here, provided that NEVER is not #de- 
fined anywhere, the code _ be- 
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dramatically (it's now among the best 
I've seen), and the error messages are 
more informative. The User’s Guide 
has been improved too. Some of the 
excess verbiage has been removed, 
and it now includes a very adequate 
explanation of how to use the near 
and far keywords. 

Because the start-up module 
sources are now included, you can 
make ROMable code if you want. Mi- 
crosoft says it will provide absolutely 
no support to aid you in this endeav- 
or, however, so youre probably still 
best off using the Aztec C compiler if 
ROMability is an issue. The same goes 
if you're planning to port to another 
environment. None of the library 
source code is available from Micro- 


tween the #ifdef and #endif won't be 
compiled. Just “never say NEVER”’ to 
quote Romeo Void. The same mecha- 
nism is used to disable debugging di- 
agnostics, as in: 


#ifdef DEBUG 
printf(“Debug diagnostic’’); 
#endif 


I always seem to delete a diagnostic 
message five minutes before I need to 
use it again. An #ifdef lets me get rid 
of it without actually deleting it. 

A problem here is code readability. 
For portability reasons the # must be 
in the leftmost column and there can 
be no space between the # and the 
ifdef. Consequently, the #ifdefs mess 
up all your careful indenting. More- 
over, three lines are now required 
for every debugging diagnostic. 
These problems can be solved by us- 
ing the macro mechanism more in- 
telligently. Consider the following: 


#ifdef DEBUG 
#define D(x) x 
#else 

#define D(x) 
#endif 


If DEBUG is #defined, then the D( ) 
macro expands to its own argument. 
If DEBUG is not #defined, then the D( ) 
macro expands to a null string, to 
nothing. That is, the entire D(arg) 
macro invocation, along with the ar- 


soft. 

The compiler comes with the usual 
utilities (ib, link, and so on), and a 
version of make is now included as 
well. The make is not a full imple- 
mentation of the Unix make, but it’s 
adequate (it supports generic depen- 
dencies [.c.obj] and the $* and $@ 
macros—the version that shipped 
with MASM didn't). 

The most important addition to the 
package is the CodeView debugger. In 
the past, I’ve shied away from debug- 
gers when I've written high-level-lan- 
guage programs. They're just too 
much work; adding a few printft ) 
statements takes less time and is more 
informative than messing with de- 
buggers. Even “symbolic” debuggers 


gument, is ignored. The argument 
can be any legitimate C operation. 
For example, D( printf(“hi’); ) ex- 
pands to printf(“hi”’); when DEBUG is 
#defined. The whole statement, in- 
cluding the printfl ) call, is discarded 
when DEBUG isn’t #defined. Because 
D() is a macro expansion, as com- 
pared to a definition, none of the 
pound-sign-must-be-in-the-left-col- 
umn restrictions apply. The D can be 
at any indent level. An example of 
the D( ) macro is in this month’s List- 
ing Two on line 65. 

There are three caveats. First, don’t 
put a semicolon after the ) in the mac- 
ro invocation. A semicolon by itself is 
a legitimate statement in C (it doesn’t 
do anything but it’s legal). If there’s a 
semicolon following the ), it will still 
be around even if the macro expands 
to a null string, and it can cause prob- 
lems with if/else statements binding 
incorrectly. Second, be careful of the 
comma operator. This is not much of 
a problem because the comma opera- 
tor isn't used very often, but the C pre- 
processor can't distinguish between a 
comma operator and the comma that 
separates macro arguments. You'll 
probably get an error message if you 
use a comma operator inside a D( ) in- 
vocation. Finally, many compilers 
won't accept macro invocations that 
are longer than one line, so the entire 
macro should be on a single line. 
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aren't that useful because they don't 
give you access to local variables. 
CodeView is a whole other ball 
game. It’s wonderful. First of all, it’s a 
true source-code debugger. The 
source code is right there in front of 
you on the screen. You can set break- 
points in the source code, page 
around in the code with either a 
mouse or the cursor keys, even go 
look at other files if you like. If control 
passes to a subroutine in another file, 
the second file is read automatically 
so the correct source is still displayed. 
You can do things such as position the 
cursor at a line in the source code and 
then execute up to that line with the 
push of a button. If you want to see 
the assembly language, push F3 and 
it’s right there in front of you (with 
the source code interspersed as com- 
ments, no less). Push F2, and a regis- 
ters window appears (which remains 
active while the code is running so 
you can actually see the registers 
change). The line being executed is 
highlighted in reverse video so the 


controi flow is visible in front of your: 


very eyes. In slow execution mode, 
you can actually watch a for state- 
ment loop and you can watch control 
skip over an else clause. 

Among the nicest features of Code- 
View are the “watch” functions. A 
watch window can be opened in 
which contents of variables (even lo- 
cal variables) are displayed. You can 
watch the values change as the pro- 
gram executes. You can set a ‘watch 
point,” a breakpoint that stops execu- 
tion when an expression evaluates to 
false (the expression uses the normal 
C operators and can include any of 
the local or global variables). You can 
also set a “‘tracepoint,’’ a breakpoint 
that stops execution when a specific 
memory location or range of memo- 
ry locations is modified (unfortunate- 
ly there’s a 128-byte limit on ranges 
so you can’t say “break if any of my 
code space is modified’; you can't 
have everything). You can even do all 
this simultaneously—variables 
changing, registers flipping, control 
flowing all at once—it’s like a Christ- 
mas tree. 

There’s also a variable-evaluation 
feature that’s quite nice, again letting 
you use C syntax. For example, if sisa 
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structure that contains a pointer (p) to 
another structure that contains an ar- 
ray (c), you can ask CodeView to 
show you (s.p)—>c/(3/ and it does it. 
You can say p to see the contents of a 
pointer, and you can say “p to see the 
object pointed to. You can also use 
printf-like format specifiers. For ex- 
ample, a number can be displayed in 
hex by putting ,x after the name. The 
contents of a string pointer can be dis- 
played as a number, or you can actu- 
ally see the string (by putting a,s after 
the name). You can also modify vari- 
ables easily using the C operators: 












ri 
yall ya 
tl 
ait! 


an 


renteet 


a+-+ and a=10 work as expected. 

The subroutine-calling stack is 
available in symbolic form. You can 
see the entire subroutine calling se- 
quence, with both the calling subrou- 
tine’s names and the values of all the 
subroutine’s arguments as part of the 
display. It even works with recursive 
subroutines. 

This is a great debugger. 

Now for the bad news. The compil- 
er’s price has gone up to $450, an 
amount at which the anarchist pro- 
grammer in me rebels. You do get a 
lot for your money, but that’s still a 
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lot of money. More important, the 
cost of an update ($150) is, I think, un- 
reasonably high considering the 
number of bugs in Version 3.0. On the 
other hand, CodeView may well be 
worth the $150 all by itself. 

I found three bugs in the package: a 
serious one in CodeView and a cou- 
ple of trivial ones in the compiler it- 
self. When I first starting using the 
debugger, it had an annoying tenden- 
cy to go off into outer space occasion- 
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ally. The mouse cursor disappeared, 
and the keyboard wouldn't respond 
to anything. I had to press Ctrl-Alt-Del 
to get out. I suspect, because this er- 
ror stopped happening once I 
learned how to use the debugger, 
that it’s incorrect handling of a com- 
mand syntax error that’s at fault. 
Another problem seems to be with 
the mouse itself. I’m using a Microsoft 
mouse (the older version of the hard- 
ware but with the new driver). My 
friend Bill, who uses the Logitech 
mouse, reports that CodeView crash- 
es when he tries to use his mouse. 






‘What Our Users/ 
Reviewers Are Saying 


‘.,. easy to use, powerful, anda 
timesaver.” 


‘... we absolutely LOVE C-terp.” 


‘... has restored my faith in 
interpreters.” 


‘...a programmer's dream.” 
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.. increased our productivity by a 
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* C-terp is a trademark of Gimpel Software. 
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Though Microsoft assures me that, if 
a mouse driver is Microsoft compati- 
ble, it should work, the compiler 
package does come with a new ver- 
sion of the driver and this driver may 
have new or undocumented fea- 
tures. There's no documentation pro- 
vided for the mouse driver. As the Lo- 
gitech mouse works fine with 
Microsoft Windows, I can’t help but 
think that it’s CodeView that’s at 
fault, not the driver. Though a mouse 
isn’t required to use the debugger, 
this is one application in which the 
mouse is actually pretty nice. It’s a 
real indication of CodeView's 
strengths that both Bill and I continue 
to like it in spite of these problems. 

I found two bugs in the compiler 
itself, both trivial. The code: 


ChE Pewhorill 
a 


#define isquote(c) ( (c)= = 


incorrectly generates the warning 
“warning 74: non standard extension 
used - ‘macro formals in strings.’ ”’ 
This message is somewhat obtuse, 
and it’s not explained at all in the er- 
ror-messages appendix. Because the 
appendix stops with warning 72, I as- 
sume there’s also a warning 73 that 
isn't explained either. I think the 
compiler is complaining about a mac- 
ro such as: 


#define printnum(n,t) printf(‘%t’’, n); 


In this example, the call print- 
num(10,x) should expand _ to 
printf(“%x"’, 10). This situation 
doesn’t apply to the actual code, 
however; the compiler is probably 
confused by the double quote. A 
work-around is: 


#define isquote(c) ((c)==’\" "11 


The second bug has to do with the 
new, and nonstandard, cdecl 
keyword. A function that’s declared 
cdecl will be compiled with C param- 
eter-passing conventions even if the 
compiler command-line switch that 
forces Pascal or FORTRAN parameter- 
passing conventions is used. It should 
be a no-op if this command-line 
switch (/Gc) isn’t specified. If LINT_ 
ARGS is #defined at the head of your 
file, the following definition is in- 
cluded in signal.h: 
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int cdecl (signal(int, int @)())0); 


If, later on in the same file, you in- 
clude the line: 


extern int ( *signal(int, int (*)()))(); 


then the error “error 86: ‘signal’ : re- 
definition” is generated. It seems as if 
the cdecl keyword is not really a no- 
op if /Gc isn’t given. As I often explic- 
itly declare all external subroutines 
at the head of a file, this is forcing me 
either to use a nonstandard keyword 
or always to compile with the /Za 
command-line switch. This second 
alternative also disables the near and 
far keywords, however. I'd prefer 
the cdecl keyword to actually be ig- 

‘nored if /Gc isn’t used on the com- 
mand line. 

The situation is made worse by an 
omission in the User’s Guide index. 
There’s only one entry for cdecl, 
pointing at page 193. Cdecl is men- 
tioned on this page, but there’s no de- 
scription there of what it does. A ref- 
erence to page 204, where the 
keyword is actually explained, 
should be added to the index. 

In summary, I like the compiler 
and I really like CodeView. If Micro- 
soft would only publish a regular 
newsletter telling us about known 
bugs in the compiler as they're dis- 
covered, provide better support (for 
start-up module modifications for ex- 
ample), and provide the library 
sources if you need them.... 


Erratum: A Bug in Sort 
There’s a bug in the sort program 
printed in this column in June 1986. 
The program isn’t closing input files 
when it’s finished with them, so the 
number of simultaneously open 
merge files is unnecessarily limited. 
To fix the problem, insert an 
fclose(fp); statement just above the if 
statement on line 385 of Listing One 
(sort.c). You'll have to put curly brac- 
es around the body of the while be- 
cause it now has two statements in it. 

A reader, David Schuler, also 
caught an error in the sort article. 
The example on page 22: 


2 
1 
20 
10 
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Consultants, P.O. Box 5679, Berkeley, 
CA 94705. The newly compiled ver- 
sion of the shell (2.01) is available 
from DDJ (see advertisement, page 
108). This version also corrects the 


wont sort as explained because of 
the leading white space. The exam- 
ple should be written: 


2 ESC environment and shell-variable 

1 modifier bugs found in Version 2.00. 

20 Updates from earlier versions are 

10 available from DDJ for a $6 media 
charge. 

Availability DDJ 


The code from this month’s column 
is available on CompuServe, and an 
IBM PC-compatible disk is available 
for $25 from Software Engineering 
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New Issues in 
PC Graphics 








by Ed McNierney 


isplay 
I) boards in- 
corporating 


third-generation 
graphics controllers 
have provided soft- 
ware developers 
with a highly sophis- 
ticated set of capabili- — | 

ties. Along with those capabilities comes a level of com- 
plexity previously unknown in the PC graphics industry; 
in order to use these new hardware tools effectively, pro- 
grammers need to become familiar with the new issues 
they raise and with the new techniques associated with 
those issues. 

The chief features of these new controllers, which in- 
clude the Intel 82786 and the Texas Instruments 34010, 
include hardware graphics primitives, which give them 
the ability to draw circles, lines, and bit-mapped text at 
high speed. The controllers also have true microproces- 
sor architectures that allow the development and execu- 
tion of complex graphic algorithms in parallel with the 
host CPU’s execution; the ability to address large amounts 
of memory (up to 512 megabytes) in support of multiple 
pages of screen memory and large amounts of off-screen 
graphics storage memory; and hardware windowing ca- 
pabilities that, for the first time, completely separate the 


physical layout of graphics memory from the data dis- 
played on the screen. 


Two Examples 

Although they are both graphics coprocessors, the Intel 
82786 and the TI 34010 are not head-to-head competitors 
in the graphics market. The 82786 is able to address 4 
megabytes of memory and display that memory in hard- 
ware windows at a resolution of up to 640X480 pixels. 
St nae eee ek py 


Ed McNierney, Number Nine Computer Corp., 725 Concord Ave., 
Cambridge, MA 02138 
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The new graphics chips are true 
microprocessors that run in 
parallel with the host CPU. 





Internally, the 82786 
is structured as three 
distinct processors: a 
graphics processor 
that performs draw- 
ing, a display proces- 
sor that extracts bit- 
map data from 
memory and gener- 
ates a display from it, and an interface unit that mediates 
requests for access to display memory. The graphics pro- 
cessor is capable of executing a simple command list 
stored in graphics memory. Although the command set 
supports subroutine call and jump instructions, there are 
no conditional branch opcodes. The command list, there- 
fore, cannot be executed intelligently and must be con- 
structed and managed by an external intelligent proces- 
sor—usually the host CPU. These features combine to 
make the Intel 82786 an excellent choice for general-pur- 
pose, high-resolution graphics systems, such as might be 
used in business graphics, graphic user interfaces, and 
desktop publishing systems. 

The architects of the TI 34010 have taken a slightly dif- 
ferent approach. The 82786 is capable of only simple (but 
very fast) drawing and complex display manipulation, 
whereas the 34010 is the reverse. It provides no hardware 
windowing, and it is only capable of generating a display 
that shows different portions of graphics memory by 
splitting the screen into horizontal strips. It does not have 
as high a clock speed as does the 82786, but it is capable of 
executing extremely complex graphic algorithms. Its 
strength lies in drawing rather than in display genera- 
tion. 

Algorithms for drawing complex figures can be coded 
and executed directly by the 34010, which operates as a 
32-bit processor capable of addressing 512 megabytes of 
memory. It is therefore suited to high-resolution, draw- 
ing-intensive applications such as computer-aided design, 
drafting, and high-end publishing and page composition. 
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Optimized for Graphics 
The execution of graphics primitives by either of these 
graphics processors provides two direct benefits: Unlike 
the host CPU, the graphics processor is designed to draw 
efficiently and quickly, and the presence of a coprocessor 
frees up the host to perform other tasks while the draw- 
ing is being performed. Current host CPU instruction sets 
are optimized toward the manipulation of numeric and 
string objects, not graphics; they allow instructions that 
update pointers to move through linear blocks of memo- 
ry (such as strings or buffers) rather than through rectan- 
gular areas suitable for graphic applications. CPUs are be- 
ing forced into a service they were never designed to 
perform, whereas graphic processors address memory 
properly and also contain silicon implementations of 
drawing algorithms. Both features greatly reduce the 
amount of code required to execute a figure. Listing One, 
page 66, for example, contains three versions of a routine 
that draws a 10X10 rectangle—one on a CGA in an 8086 
system, one in an 82786 system, and the last in a 34010 
system. Note that in the second two cases, the host proces- 
sor is not executing the algorithm but is instead free to 
prepare for the next graphic output sequence. A system 
incorporating a graphics processor can have its software 
tuned to achieve real-time performance increases of 50 to 
100 times compared to a host CPU/display buffer system. 
For cases in which the graphics primitives are insuffi- 
cient for the task at hand, the TI 34010 provides a true 
microprocessor instruction set, with arithmetic instruc- 
tions, conditional test and branch instructions, and soft- 
ware and hardware interrupt control. Not only does this 
provide the developer with a general-purpose coproces- 
sor but it also permits the 34010 to be used as the only 
processor in the system. Intelligent terminals or printers 
can be driven by only one CPU, reducing hardware cost 
and simplifying software development. Although the TI 
processor is slower in terms of clock speed and in the 
types of memory accesses it can perform than the Intel 
82786, its programmability can allow a greater synergy 
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between it and the host CPU, resulting in greater applica- 
tion throughput. A graphic processor is not a panacea 
that will cure a sluggish graphic implementation, howev- 
er, because the task of creating a system in which both 
processors are used optimally is an extraordinarily diffi- 
cult one. The complexity of such coprocessor systems is 
suggested in Figure 1, page 32, in which sample 34010 and 
sample 82786 system memory layouts are compared. 

Both the TI and Intel processors are capable of address- 
ing large amounts of graphics memory. Although more 
memory is required simply to support high-resolution and 
high-color displays, these processors require access to ad- 
ditional objects in their memory—graphic software (both 
in ROM and in RAM), memory-mapped register sets, control 
areas, and graphics source data all reside in the processor's 
address space. One of the more difficult issues facing de- 
velopers is the management of all this memory because 
neither the Intel nor the TI processors supports explicit 
memory management other than reserving certain por- 
tions of their address spaces for some specific uses. 

Graphics memory also has to accommodate many new 
types of objects whose presence springs directly from the 
fact that they support off-screen graphics data. No appli- 
cation developers really want to store fonts, icons, cur- 
sors, and temporarily hidden portions of the display in 
system memory; they have, however, been forced to do 
so because there has been no other place to put them. All 
the housekeeping efforts that currently have to be exert- 
ed in the host address space in order to keep track of these 
objects must now be transferred to the graphics proces- 
sor. The host is equipped with the operating system's nor- 
mal memory allocation, deallocation, and management 
functions, all of which need to be duplicated and execut- 
ed by the graphics coprocessor to manage its own memo- 
ry. Although display memory grows in complexity, it is at 
least performing a task for which it is intended, freeing 
system memory for the execution of host CPU code and 
the storage of host CPU data. 

The management of graphics memory becomes espe- 


31 


NEW GRAPHICS ISSUES 
(continued from page 31) 


cially complex in the case of the 82786 because it has full 
hardware windowing support. As graphics-based user 
interfaces become more common, the 82786 will prove a 
great benefit to application developers and to the under- 
lying windowing systems that support them. An 82786- 
based system is entirely freed from any association be- 
tween physical memory addresses and screen displays— 
any graphics data residing anywhere in its address space 
can be displayed at any point on the screen by creating a 
window, positioning it on the screen, and defining the 
bit-map address from which that window should take its 
data. This system provides greater flexibility for the ap- 
plication as well as increased performance in windowing 
environments. On an IBM Enhanced Graphics Adapter, 
for example, moving a 400 X 300-pixel rectangle in 16-col- 
or mode to another position on the screen requires mov- 
ing 60,000 bytes of data—and then moving up to 60,000 
bytes more to fill the hole uncovered by the moved rect- 
angle. In an 82786 environment, however, the same oper- 
ation requires updating only about a dozen bytes, per- 
forming the same task up to 10,000 times faster! 

The fundamental benefit derived from a hardware- 
based windowing system is that the covering of one win- 
dow by another does not destroy any display information 
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but simply hides it. Moving the covering window then 
reveals that graphic data again, without the application 
having to store a temporary copy of it and replace it— 
panning, smooth scrolling, and the repositioning of win- 
dows all become much faster and much more practical to 
implement in graphical user interfaces. Not only do these 
windows save graphics memory by obviating the need 
for maintaining duplicate copies of display data but they 
also save memory by allowing data in different windows 
to be displayed at different pixel depths. 

In a high-color paint package using an 8-bit-per-pixel 
display, there is no need for a pop-up window containing 
a list of picture file names to be displayed in anything but 
black and white. By creating a new 1-bit-per-pixel win- 
dow in which to display the text, the application reduces 
both the memory required for the display and the time 
required to print the text in the window by a factor of 8. 
This greater flexibility means that display memory re- 
sources can be used more prudently and in a manner 
more appropriate to the particular display application at 
hand. 


New Expertise Is Needed 

All these wonderful advantages are not without their 
price. As with any new hardware or software technolo- 
gy, a whole new area of expertise has to be developed. 
The examples set by the Apple Macintosh and the IBM 
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Figure 1: Comparison of sample 34010 and 82786 system memory layouts 
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EGA are good parallels to the graphic coprocessor envi- 


ronment. Both of these technologies represented signifi- 
cant advances over what was previously available in the 
market, and they both ran into dificulties because of the 
long lead time required for software development to take 
place. The new graphic coprocessor systems are com- 
plex, and it will take a while before sufficient expertise is 
acquired to use them well or at all. 

Although software development efforts are simplified 
at the microscopic level in that a developer is spared one 
more implementation of Bresenham’s circle algorithm, 
the overall environment is more demanding and more 
detailed, and the development overhead required may 
prevent smaller software firms from undertaking any 
development until a significant market leader has be- 
come apparent. The ability to take an intelligent graphics 
board and use it to run existing applications faster will 
help break the hardware/software development dead- 
lock in which software developers won't port to new 
boards until they sell and hardware developers can't sell 
boards until the software support is there. As a result of 
this complexity, the first coprocessor systems will proba- 
bly do nothing more than execute current software pack- 
ages more quickly. There will be a definite development 
lag before the coprocessors are used fully and effectively 
for new, innovative applications. 

Hindering the ability of developers to work with these 
products is the current state of graphic software stan- 
dards. In different respects they provide too much and 
too little. The graphic software world has too many 
“primitive” standards, and a developer often has to make 
a difficult choice between VDIs, CGIs, GKS, and PHIGS sys- 
tems, not to mention new systems being proposed. A stan- 
dard just isn’t a standard when a developer has to support 
six of them to cover 50 percent of the market! On the short 
side, none of the present standards addresses the issue of 
windowing, although an ANSI committee is working on a 
windowing proposal. Unfortunately, it will almost cer- 
tainly take a while for standards committees to propagate 
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new proposals for these new processors, and by that time 
several independent interfaces will exist and the stan- 
dards will occupy the same role they do now. 


Communication and Synchronization 

On the more practical side, some implementation prob- 
lems need to be addressed by any application that at- 
tempts to use a graphic processor well. Because each pro- 
cessor has its own instruction set and opcode syntax, 
commands need to be translated from the format in 
which the application program generates them to a for- 
mat intelligible by the graphic processor. A well-thought- 
out communication syntax is necessary in order to mini- 
mize the overhead required to send the desired 
command to the graphic processor, or the application 
may end up taking longer to perform the drawing than if 
the host CPU had executed the graphic algorithm itself. 
Going hand in hand with an efficient communications 
protocol is a careful synchronization of the tasks being 
performed by the host and graphic processors. Because a 
PC with an 82786 or 34010 is a true multiprocessor system, 
the architecture of the graphics board may require full 
status information to be provided to the host CPU. If a 
command is sent to the graphics processor to draw a cir- 
cle, and then the host CPU wishes to read the value of a 
pixel along the circumference of that circle, the host 
needs to be able to tell whether the circle has been com- 
pleted, lest the incorrect value be read. 

An extreme approach to synchronization is to wait for 
any command or program sent to the graphic processor to 
complete before returning control to the host application. 
Although “‘lockstepping” will work and will execute faster 
than a host CPU without the processor, the capabilities of 
the processor are largely ignored in this case. Synchroniza- 
tion schemes can include mutually interruptible systems 
in which each processor signals the other when it is ready 
for new material, critical flags that tell one processor that 
the other is in a possibly unstable state, and polling mecha- 
nisms in which each processor registers a request to the 
other and then polls for a status flag to be set indicating 
that the request can be honored. Figure 2, below, illus- 
trates these schemes. 
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Figure 2: Synchronization of dual processors through a mutual interrupt system 
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Black Boxes 

Additional issues are brought up by the blurring of certain 
traditional boundaries in PC environments. There is less 
and less of a distinction between “graphic” and ‘“‘system”’ 
memory; packages such as Microsoft Windows require 
that a display driver be able to perform drawing in pre- 
cisely the same manner on a given block of graphic data, 
no matter where it resides in the system. Drawing may be 
performed in traditional system memory, in bank-selected 
expanded memory, or in on-board graphic memory. 

The difficulty here comes from what in other cases is a 
benefit—the graphic algorithms embodied in the graphic 
processor are ‘‘black boxes,” opaque to the user. If the 
graphic processor is not capable of performing drawing 
in system memory because of limitations of software or 
hardware design, then the application must provide an 
algorithm that duplicates the one contained in the black 
box in every respect. If the algorithm cannot be duplicat- 
ed precisely, the graphic processor becomes useless in 
that system—unfortunately, the IBM PC’s architecture 
prevents a graphics board residing in an expansion slot 
from modifying system memory in any way. This restric- 
tion has been lifted in the PC/AT, but it still presents an 
obstacle blocking access to a large installed base of ma- 
chines. In addition, because the graphics board may con- 
tain far more memory than the host CPU system does, that 
memory may be made available for nongraphics use by 
other applications such as RAM disks, disk caches, and 
expanded memory drivers. Developers need to avoid 
painting themselves into corners by clinging to old as- 
sumptions that were valid on IBM Color Graphic Adapters 
but that are no longer appropriate. 


Dealing with Text 

Aiding the battle against rapidly multiplying display 
modes but clouding the implementation battle is the 
growing awareness and appreciation of the fact that text 
in any form is nothing more than a special type of graph- 
ic data. Text can be zoomed, scaled, colored, italicized, or 
displayed in many different fonts all on the screen at 
once, and that same text must be able to be read back 
from the screen. Character recognition on a mono- 
chrome screen is straightforward, but the extraction of 
ASCII data from a highly complex graphical bit map is a 
very challenging task. 

The further hardware and software manufacturers 
can go in removing constraints on the use and appear- 
ance of text, the closer they will come to an ideal user 
interface. The application of multiple scaled fonts to 
WYSIWYG word processing is obvious, and the growing 
desktop publishing market will certainly benefit from 
these new processor technologies. Average users are be- 
coming more sophisticated and more demanding about 
the text they see every time they turn on the PC. High- 
quality text must be provided without an excessive speed 
penalty on the part of users; no matter how pretty it 
looks, if it’s not fast it won’t be liked. 

Both the TI and Intel processors provide sophisticated 
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text support, allowing for color bit-mapped text to be gen- 
erated at speeds approaching those of hardware charac- 
ter generators. Fonts can be stored in graphic memory, 
freeing precious system memory from the task, and spe- 
cial attributes such as underlining and boldfacing can be 
synthesized on the fly, obviating the need for storing mul- 
tiple copies of the same font. Fonts are not tiny objects, 
and extremely large amounts of memory may be re- 
quired to store and format them. The effective use of font 
storage may be the most critical issue in the apparent 
performance of a graphics application because poorly 
managed font memory translates into slow text perfor- 
mance and text performance is the one area in which 
users are most sensitive and critical. Judgment and clever 
implementation here can certainly make the difference 
between a popular package and a failure. 

Fortunately, as the silicon available becomes more com- 
plex, the tools available become more powerful. Already 
function libraries that perform three-dimensional graph- 
ics, floating-point arithmetic, text generation and scaling, 
and object filling and shading are being provided, both by 
chip manufacturers and by third parties. In addition, TI 
even offers a C compiler for the 34010, allowing the direct 
conversion of algorithms developed on earlier systems. 
These libraries and compilers are no longer the conve- 
nient graphics toolkits offered for existing graphic display 
boards but are essential steps to application development. 


Virtual Displays 

Because it provides hardware windowing directly, the 
82786 can create a virtual-display environment that direct- 
ly parallels the 80386’s Virtual 86 execution mode—each 
Virtual 86 task can think it is running on an IBM Color 
Graphics Adapter, while each virtual CGA is being dis- 
played in a distinct hardware window. This chip compan- 
ionship not only allows existing applications to run un- 
modified on an 80386 but also allows them to execute 
unmodified in a windowing environment (see Figure 3, 
page 38). 

Along with the essential ability to execute current ap- 
plications, the 82786 introduces the concepts of visual hi- 
erarchy and privilege in direct parallel to the software 
execution controls provided by the 80386. A truly inte- 
grated multitasking system must be able to treat graphic 
and visual information with the same protection and con- 
trol as it treats any other portion of its execution environ- 
ment. Imagine an 82786 graphic application running in a 
multitasking environment. When the application starts 
up, it wants to display itself in the top window, centered 
on the screen and occupying three-quarters of the visible 
area of the screen. Although it is quite reasonable to ex- 
pect that the application considers itself important 
enough to merit all that room, the operating system 
knows that there are several other applications active 
that may require attention. By making the window posi- 
tioning and sizing commands privileged system calls, the 
operating system can act as an intermediary between 
what the application wants and what resources it consid- 
ers appropriate to supply. The request can be examined, 
modified to fit the state of the system at the moment, and 
the application notified of the modifications required to 
fulfill the request. Alternatively, the application could be 
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allowed to test the manner in which a specific request 
would be fulfilled and modify or cancel the request en- 
tirely depending upon the results. 

The concept of visual hierarchy and privilege can be 
the beginning of another step forward in user-interface 
design. By providing the means to manipulate shared bit- 
mapped displays in a multitasking system, a graphics pro- 
cessor frees application designers from one more level of 
hardware constraint—instead of designing to be coopera- 
tive with other applications sharing the same screen, de- 
signers can work with a true virtual system in which they 
appear to own not only all of memory (and then some) 
but also to own an entire dedicated display. This freedom, 
combined with the ability to produce higher-color and 
higher-resolution displays and the freedom gained by off- 
loading the host CPU from graphics work, will allow re- 
markable growth in the sophistication and ease of use of 
software; the tools are finally becoming available to catch 
up with the dreams of software designers. 


The Next Generation 

Where will the first fruits of graphic processor technology 
appear? Right away systems will incorporate them into 
high-speed versions of current products. The chief prob- 
lem with graphical operating environments (Windows, 
GEM, and the like) is that they incur vast overhead in main- 
taining the screen. Ports of these environments (and simi- 
lar graphics-intensive applications, such as CAD packages) 
to faster, graphics-processor-based systems will become 
available almost immediately—some may even have been 
introduced by the time this article is printed. Graphics tool- 
kits and libraries, especially the popular ones such as 
MetaWINDOW and HALO, will follow soon after. Some of 
the more foresighted of these libraries have been emulat- 
ing the capabilities of graphic processors in software for 
quite a while; applications that have taken advantage of 


those emulations will benefit most greatly. In parallel with 
the porting of graphic operating environments will come 
the development of enhancements to those environments, 
especially in the field of font and text development. The 
ability to generate text at high resolutions with acceptable 
speed will spur consumer demand for more powerful text 
systems and displays that begin to approach the flexibility 
and resolution available in their laser printers. Operating 
system and memory management products will, lag be- 
hind. When available, however, they will be the sources of 
the largest direct benefit to users. 


Conclusion 

Intel and TI have produced two very different but re- 
markable processors. The software industry will reap 
many benefits from them both, in part because each com- 
pany has been very responsive to the concerns and needs 
of developers. The Number Nine Pepper Series of graph- 
ics boards includes products that use both the TI and Intel 
coprocessors. In addition to providing powerful hard- 
ware, the Pepper Series addresses the software issues 
raised here through the Number Nine Intelligent Operat- 
ing System (NNIOS). 

As the technology of visual displays is brought toa price 
and performance level that can make it available to the 
mass market, the opportunity for software of high per- 
ceived value increases. Public awareness of the quality 
and craftsmanship inherent in excellent software will 
certainly increase, and developers who make the neces- 
sary investments in time and effort to use these new 
graphic systems effectively will become a prominent 
part of that awareness. 
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proof as deemed necessary. 
If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software protection is at 
a crossroads and the choices 
are clear. You can give 
product away to a segment 





crucial point that 
even sophisticated 





software develop- 


Hard Disk Installation : Simply copy program disk 
to hard disk using DOS Command - Copy 


Program Back-ups : You may make as many copies of 


the program diskette as you wish. 


Data Back-ups : Use normal back-up and restore 
commands, including backing up sub-directories contamng 


program files. 









Networks : This product may be 
-s. Follow the same installation 
page 102 of this manual. The Block 
» with the normal operation of any 





Soon all software installation procedures will be as straightforward as this. 
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The only difference will be whether you include the option to steal your 


product or not. 


of the market, or take a 
stand against the theft of 
your intellectual property. 


“.. giving your software 
away is fine...” 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
is determining company 
policy, then you are no 
longer in control. 


We have patented a device 
that protects your software 
while allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could object are those 
who would like the option 
of stealing your company’s 
product. 


‘‘ ..eliminating the ratio- 
nale for copy-busting...”’ 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for copy-busting programs 
is eliminated. 

The BLOCK is fully pro- 
tected by federal patent law 
rather than the less effective 
copyright statutes. The law 
clearly prohibits the produc- 
tion of work-alike devices 
to replace The BLOCK. 


The BLOCK attaches to 
any communications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number 
programmed into the circuit. 

The BLOCK 1s transpar- 
ent to any device attached to 
the port. Once it is in place 
users are essentially unaware 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 
for accessing The BLOCK 
to confirm a legitimate user. 
If it is not present, then the 
program can take appro- 
priate action. 


‘«,. possibilities... 
limited only by your 
imagination...” 


The elegance of The 
BLOCK lies in its simplicity. 
Once you understand the 
principle of The BLOCK, 
hundreds of possibilities will 
manifest themselves, limited 
only by your imagination. 

Your efforts, investments 
and intellectual property 
belong to you, and you have 
an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 
Call today for our brochure, 
or a demo unit.” 
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Your search for execution speed is over. 
The new Microsoft*C Compiler Version 4.0 
is here. With blazing performance. We've 
added common sub-expression elimination 
to our optimizer that produces code that 
tips through the benchmarks faster than 
ever before. 


*...the Microsoft performance in the benchmarks 
for program execution is the best of the lot overall” 


—William Hunt, PC Tech Journal, January, 1986* 





But speed isnt the only edge you get with 
Microsoft C.Other advantages include a vari- 
ety of memory models like our new HUGE 
model that breaks the 64K limit on single 
data items. Plus our NEAR, FAR and HUGE 
pointers, which provide you greater flexibility. 
All this allows you to fine tune your program 
to be as small and fast as possible. 


“Excellent execution times, the fastest register 
sieve, and the best documentation in this review 
...Microsoft Corporation has produced a 
tremendously useful compiler.’ — Christopher 
Skelly, Computer Language, February, 1986. 


No more debugging hassles. 
Introducing CodeView. Free. 
Now, for a limited time, welll give you an 
unprecedented programming tool when you 
buy Microsoft C, free. New Microsoft Code- 


View" offers the most powerful tool yet in 


aa ~~ 





The tastest C 


the war on C bugs. Forget the hex dumps. 
Now you can view and work with programs 
at any level you want. Use the program 
source, the disassembled object code, or 





Microsoft C Compiler Version 4.00 
Microsoft C Compiler 


* Produces fast executables and optimized code including elimination 
of common sub-expressions. NEW! 
¢ Implements register variables. 
¢ Small, Medium and Large Memory model libraries. 
*¢ Compact and HUGE memory model libraries. NEW! 
¢ Can mix models with NEAR, FAR and the new HUGE pointers. 
¢ Transport source and object code between MS-DOS® and XENIX® 
operating systems. 
¢ Library routines implement most of UNIX™ System V C library. 
¢ Start-up source code to help create ROMable code. NEW! 
* Full proposed ANSI C library support (except clock). NEW! 
¢ Large number of third party support libraries available. 
¢ Choose from three math libraries and generate in-line 8087/ 80287 
instructions or floating point calls: 
— floating point emulator (utilizes 8087/ 80287 if installed). 
— 8087/80287 coprocessor support. 
— alternate math package — extra speed without an 8087/80287. 
¢ Link your C routines with Microsoft FORTRAN (version 3.3 or 
higher), Microsoft Pascal (version 3.3 or higher) or Microsoft 
Macro Assembler. 
* Microsoft Windows support and MS-DOS 3.1 networking support. 
¢ Supports MS-DOS pathnames and input/output redirection. 


Microsoft Program Maintenance Utility. NEW! 
* Rebuilds your applications aftet your source files have changed. 
¢ Supports macro definitions and inference rules. 


Other Utilities 

¢ Library Manager. 

* Object Code Linker. 

* EXE File Compression Utility. 
* EXE File Header Utility. 


C Benchmarks 



































In seconds 






Computer 
Microsoft Lattice Innovation Aztec Wizard 


C 40 30 C25 C86 3.2 C30 









Sieve of 

Eratosthenes 

(register) 82.9 151.4 172.3 88.0 91.9 
Copy Block 86.9 231.7 199.0 123.8 189.5 







Run on an IBM PC XT with 512K memory 


Microsoft CodeView 


Window-oriented source-level debugger. NEW! 












* Watch the values of your local and global variables and expressions 
as you debug. 

* Set conditional breakpoints on variables, expressions or memory; 
trace and single step. 

¢ Watch CPU registers and flags as you execute. 

¢ Effectively uses up to four windows. 

* Debug using your original source code, the resulting disassembly 
or both intermingled. 

* Use drop-down menus to execute CodeView commands. 

* Access the on-line help to lead you through CodeView’s options 
and settings. 

* Easily debug graphics-oriented programs since program output is 
kept separate from debugger output. 

* Keyboard or optional mouse support. 


¢ Enter in familiar SYMDEB or DEBUG commands. 

















*Reprinted from PC Tech Journal January 1986, copyright 1986, Ziff-Davis Publishing. 
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you've ever seen. 


both at the same time. Open a window to 
view CPU registers and flags. Watch local 
and global variables as well. All while your 
program is running. 

CodeView gives you complete control. 
Trace execution a line at a time—using 
source or assembly code. Or set conditional 
breakpoints on variables, memory or expres- 
sions. CodeView supports the familiar 
SYMDEB command syntax, as youd expect. 
Commands are also available through drop- 
down menus. Combine the new window- 
oriented interface with our on-line help and 
debugging has never been easier. Or quicker. 


E File Search View Run Watch 


Steer 
1) tiszero() 


OTIS Calls 


Take the $5 CodeView tour. 

You may find it hard to believe our debug- 
ger can do all weve claimed. So were offering 
test drives. Five bucks will put you behind 
the wheel of a Microsoft C demo disk with 
CodeView: See for yourself how fast debug- 
ging can get. 

For more information about the Code- 
View demo disk, the new Microsoft C 
Compiler, a list of third party library sup- 

ort or the name of your nearest Microsoft 
dealer, call (800) 426-9400. In Washington 
State and Alaska, (206) 882-8088. In Canada 
call (416) 673-7638. 
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Microsoft’ C Compiler 


The High Performance Software 


Microsoft, MS-DOS and XENIX are registered trademarks and CodeView is a trademark of Microsoft Corporation. UNIX is a 
trademark of AT&T Bell Laboratories. IBM is a registered trademark of International Business Machines Corporation. tOffer expires 12/31/86. 





ARTICLES 


A Mandelbrot Program for 





K. Dewdney’s Computer 
A Recreations column in 

@ Scientific American often 
provides inspiration for program- 
mers looking for new projects. Dewd- 
ney frequently discusses interesting 
and offbeat algorithms and other pro- 
gramming matters. His column of Au- 
gust 1985 in particular seems to have 
touched off something like a feeding 
frenzy among hackers looking for 
new algorithmic adventures. In that 
column, Dewdney discussed the Man- 
delbrot set, a mathematical object 
named in honor of the French math- 
ematician Benoit Mandelbrot, of frac- 
tal fame. Dewdney also provided sev- 
eral computer-generated images of 
the set, which he called “the most 
complex object in mathematics,” that 
are strikingly beautiful. Interested 
readers might refer to Mandelbrot’s 
classic volume, The Fractal Geometry 
of Nature (New York: W. H. Freeman 
& Co., 1982), for other fractal 
creations. 

This article describes a 68000 pro- 
gram, written using Apple’s MDS as- 
sembly-language development sys- 
tem, that produces screen images of 
the Mandelbrot set on a Macintosh. 
The final application is just over 4,000 
bytes long. The source code, in two 
sections, is in Listings One and Two, 
pages 72 and 84. Listing One, at just 
over 700 lines, contains the main 
body of the program. Listing Two is 
the assembler source for a string-to- 
fixed-point number conversion rou- 
tine that is assembled separately and 
then linked with the REL file pro- 
duced by Listing One. 

The algorithm described by Dewd- 
ney is surprisingly simple. Of the 
pee ee ee ees 
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by Howard Katz 


_ explores the most 


complex object in 


more than 1,200 lines of code in the 
program, fewer than 40 lines are ded- 
icated to the actual calculations in- 
volved in the algorithm. The rest of 
the program is devoted to dealing 
with the well-known Macintosh user 
interface—windows, dialog boxes, 
and the like—and to handling the 
conversion and storage of the user-in- 
put parameters that dictate which 
area of the set to display and at what 
magnification. 

The algorithm discussed by Dewd- 
ney involves the use of complex 
numbers. I'll provide a brief over- 
view of the algorithm, but I refer in- 
terested readers to Dewdney’s excel- 
lent discussion of the subject. Suffice 
it to say that the Mandelbrot set is the 
result of applying an extremely sim- 
ple iterative function to each point of 
interest in the complex plane, where 
the starting value that seeds the func- 
tion is the position of the number in 
the plane. The result of each iteration 
is anew complex number. If the size 
of the number— its distance from the 
(0, 0) origin of the plane—exceeds 2 at 
any point before the iteration runs a 
predetermined maximum number 
of times, then the point lies outside 
the set. If the iteration runs its full 
course and the size of the complex 
number remains less than or equal to 
2, then the point lies within the Man- 
delbrot set. The actual iterative func- 
tion involves nothing more than 





the Macintosh 


starting with a value of 0, adding the 
complex value of the point, and 
squaring. Each successive result is 
then fed back into the iterative func- 
tion. Note that the terms within and 
without are relative: A true rendition 
of the set would require an infinite 
number of iterations; happily, you 
can obtain pleasing results with as 
few as 30 or 40 iterations per point. 


Objectives 

I had two major objectives in mind 
when I wrote this program: The first 
was to produce attractive and inter- 
esting images; the second was to pro- 
duce them as quickly as possible. Al- 
though the algorithm is quite simple, 
it is also extremely computation in- 
tensive. I wanted to explore as much 
of the set as possible but did not want 
to sit around for any great length of 
time before being able to see the re- 
sults of a session. 

One final objective was to build up 
a library of interesting Mandelbrot 
vistas using the screen-dump facility 
of the Macintosh. In addition to stor- 
ing the actual graphics image, I also 
wanted to be able to save all the rele- 
vant parameters so that I could repro- 
duce the session at my leisure. 

In terms of an attractive screen dis- 
play, the fact that the program runs 
on a Macintosh immediately places it 
at somewhat of a disadvantage in 
comparison to programs written for 
other machines. All the MandelZoom 
programs (so named by Dewdney) I 
have seen to date use color and pro- 
duce strikingly beautiful screen im- 
ages. The Macintosh, of course, is a 
black-and-white machine. What the 
Mac does have is an exceedingly 
crisp and clean display, at a reason- 
able 342 X 512-pixel resolution. It 
also has the ability to draw using a 
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variable-size pen and with a user-se- 
lected pen pattern. Patterns take the 
place of colors in this implementa- 
tion; I think the results shown in the 
accompanying screen dumps are 
quite pleasing. The real beauty of the 
Mandelbrot images lies not simply in 
the graphic image of the Mandelbrot 
set itself—the strange, beetlelike ob- 
ject seen in Figure 1, page 45—but in 
allowing the regions adjacent to the 
boundary of the set to be set off in 
different colors, or patterns if you 
will, depending on the number of it- 
erations reached before the size of 
the complex number calculated for 
each point exceeds 2. Half the fun of 
running this program comes from 
varying the count “breakpoints” that 
determine the size of each region. 


Fixed-Point Numbers 

The problem of getting the program 
to run as quickly as possible was an 
interesting one. Derivation of the 
Mandelbrot set requires the use of 
real numbers because the complex 
values used in the computations have 
fractional as well as integer compo- 
nents. Most implementations use 
floating-point numbers for this pur- 
pose. On the Mac, floating-point sup- 
port is normally provided by a disk- 
based package known as SANE, for 
Standard Apple Numeric Environ- 
ment (now provided in ROM on the 
Mac Plus). SANE, however, seemed a 
bit slow for my purposes. 

I found documentation for three 
routines in ROM that supported an- 
other variety of real-number repre- 
sentation known as fixed point. In 
fixed-point arithmetic, the integer 
portion of a number is stored as a 16- 
bit quantity in the high-order word 
of a 4-byte long word and the frac- 
tional portion is stored in the low-or- 
der word. A bit of informal bench- 
marking convinced me that fixed- 
point calculations would run 
roughly an order of magnitude faster 
than would floating-point opera- 
tions, at the cost of some precision; 
the trade-off seemed reasonable. | 
didn't discard the SANE package en- 
tirely—I used its conversion routines 
for converting the three user-input 
parameters from string to SANE float- 
ing-point format, and then I convert- 
ed from the single-precision floating- 
point format back to fixed-point 
representation. See Listing Two for 
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the tedious details. 


ROM Conventions 

The program makes use of several of 
the 500-odd routines that are built 
into the Macintosh ROM. It’s beyond 
the scope of this article to discuss all 
the details of how they are used— 
Caroline Rose et al.’s Inside Macintosh 
(Reading, Mass.: Addison-Wesley, 
1985) documentation devotes more 
than 1,000 pages to that task—but a 
quick overview might be useful for 
readers unfamiliar with the Macin- 
tosh. 


Most of these routines, or ‘‘traps,’ 
are dedicated to implementing the 
Mac user interface. Traps can be 
identified in the source code as iden- 
tifiers preceded by an underscore, 
such as —_GetNextEvent or —PenFPat. 
The file MacTraps.D, which is includ- 
ed at the top of the main listing, is 
simply a long list of equates in which 
each trap name is equated to a 
unique, 2-byte hexadecimal value 
that starts with a hex $A. This makes 
use of the 68000 ‘‘line 1010 trap” fea- 
ture (a hexadecimal $A is 1010 in bi- 
nary), in which execution of any in- 


Epsilon by Lugaru Software, Ltd. 


The most advanced, customizable 
programmer's editor you can buy. 


True Concurrency. Don’t be fooled by misleading claims of concurrency from other 
vendors: this is true concurrency, not some simple “run the program and return” 
facility. Run compilers, linkers, etc., inside Epsilon and they run as you work. Epsilon’s 
concurrency integrates buffer management and program |/O. The full power of 
Epsilon is always available to edit program input and output. You're free to edit 
other things while these programs run. 


Ultimate Customizability. You may have seen some other vendors hinting that they 
have a C-like extension language. Don’t be fooled. Ask them if their extension lan- 
guage has the syntax and types of C. Epsilon uses an embedded C interpreter for 
its extension language, complete with all the data types and operators of C. This is 
a real language, not an afterthought. All of Epsilon’s commands were written In if, 
and it’s fast! 


No-Nonsense Help. Some editors offer a help screen or two listing the most basic 
commands—useless after the first week. Others spit out everything from a fixed 
file—which means they can’t tell you about your changes to the keyboard, or 
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Our Guarantee to You. We know it’s difficult to find software that works for you. 
That’s why we made Epsilon the most customizable editor on the market. And 
that’s why we offer a 30 day return privilege with a complete refund. We’re confi- 
dent that once you've tried Epsilon, you won’t go back. 


So call (412) 421-5944 to order Epsilon at no risk using your Visa, MasterCard, or 
American Express card. Company PO’s and C.O.D. orders are also welcome. Epsilon 
runs on 256K IBM PC/XT/AT’s, and costs only $195.00. 


Lugaru Software Ltd. 
5740 Darlington Road 
Pittsburgh, PA 15217 
(412) 421-5914 


LUgar*u 





Circle no. 135 on reader service card. 


43 


MANDELBROT PROGRAM 
(continued from page 43) 


struction whose first nibble is a hex 
$A forces the processor to suspend its 
Current operations and _ vector 
through an address in low memory 
to a trap dispatch table, where the 
following three nibbles of the in- 
struction are decoded to determine 
which particular trap routine to exe- 
cute. Simple, right? 

Parameter passing for the ROM rou- 
tines follows Pascal conventions, in 


The Wrapping is 


off the Latest 
Evolution of C 


Designer C++ is OASYS’ 


full implementation of 


AT&T’s enhancements to 


the C lanquage 


FEATURES: 


> Optional strong type checking 


> Overloading of function names 
and operators 


> Optional guaranteed initialization 


of data structures 
& Data abstraction 


> Dynamic typing (virtual functions) 
> Optional user-defined implicit type 


conversion 


The only commercially-available C++ 
customized to operate on PC’s, micros, 





which the parameters are pushed 
onto the stack in the order document- 
ed in Inside Macintosh. If a parameter 
is longer than 4 bytes, a pointer to its 
address is passed instead of the actual 
data. And if the routine is a function 
(and therefore returns a value), space 
must be cleared on the stack for the 
function result before the parame- 
ters are pushed and the result 
popped from the stack once the rou- 
tine returns. Most of the operating 
system routines found in ROM do not 
use the above stack-passing conven- 






¢ Works with your present 
C Compiler 

e Functions as a Pre- 
processor Translator — 
handles regular C code 
with no changes 

¢ Type-checking and other 
features are optional — 
you can turn them off 

e Already thousands of 
users at commercial sites 

¢ Complete documenta- 
tion: C++ A User’s Guide 
by Bjarne Stroustrup of 
AT&T (Addison-Wesley, 
1986) 


We Specialize in: Cross/Native Com- 
pilers: C, Pascal, FORTRAN, Ada, LISP — 
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tion; a register-based parameter-pass- 
ing convention is used instead. Final- 
ly, you should note that many of the 
operands referenced in the program 
have (A5) suffixed to their names. 
This indicates that the operand in 
question was defined using the DS 
(define storage) assembler directive at 
the end of the source listing. All vari- 
ables so created are referenced in 
code as an offset off register A5. 


Program Description 

The program uses two dialog boxes 
and one window. Windows and dia- 
logs are two examples of user-inter- 
face objects that are supported by 
several routines in the Macintosh 
ROM. Although windows and dialogs 
can be defined in code, it is generally 
much simpler, and provides better 
documentation, for programmers to 
define them using Apple’s RMaker 
(or resource maker) program. The 
concept of resources is, as far as I 
know, unique to the Macintosh, and 
it would take a much longer article 
than this to do them justice. RMaker 
is generally run last in the develop- 
ment sequence, following linking. 
Listing Three, page 87, is the source 
file that is input to RMaker for the 
MandelZoom program. 

The first Parameters dialog allows 
users to select the x and y coordinates 
of the region to be plotted; the size of 
the region; and the count break- 
points, which determine what pat- 
terns are associated with what count 
ranges. The x and y coordinates refer 
to the lower left-hand corner of the 
drawing window, which comes up 
once the dialog is dismissed by click- 
ing the Plot button. The Side parame- 
ter refers to the y coordinate of the 
window; the length of the image 
along the x axis is scaled according to 
the ratio of the window’s width to its 
length. You can cycle through the in- 
put fields using the Tab key. 

The first (top) count on the right 
side of the dialog box is the maximum 
number of iterations that will be per- 
formed for each point. If the pro- 
gram is able to iterate this number of 
times, the point will be drawn in a 
solid black pattern. If the size of the 
complex number produced by the it- 
eration exceeds 2 at any point, then a 
lighter pattern will be used. Suitable 
selection of these four breakpoint 
count values allows users to turn one 
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or more of the patterns on or off or to , 
vary the thickness of the various aes ft 1435 seconds | : 

count “regions.” Figure 1, right, for , |) 4 -2.00 
example, shows a count selection | : is a goge 
that disables all patterns except black : : 
and white for a crisp representation 
of the Mandelbrot set itself. 

Finally, the dialog allows users to 
choose one of three pen sizes using 
the Radio buttons in the lower-left 
corner of the box. The default selec- 
tion is for a 2 X 2 pen. In general, I 
use the 4 X 4 pen when exploring a 
new region for the first time. This 
provides a quick, though “chunky” 
plot. If the image looks suitably inter- 
esting, I continue my explorations us- 
ing the finer 2 X 2 pen. The 1X1 
pen is most suitable for producing 
high-quality images of the boundary 
of the Mandelbrot set, as in Figure 1. 

Once the user clicks the OK button 
at the bottom of the dialog box, the 
Mandelbrot window appears and 
drawing begins. If at any time you 
aren't satisfied with the image being 
generated, you can either click on 
New Plot to return to the Parameters 
dialog or on Quit to exit from the 
program. 

The central core of any Macintosh 
application is the event loop. In most 
Macintosh programs, the trap —Get- 
NextEvent is polled continually to de- 
termine if the user has pressed a key 
on the keyboard or clicked the mouse 
(among other possible user-initiated 
events). In this program, the event 
loop is executed at the end of each 
Mandelbrot scan line to determine if 
the user has clicked either of the 
above buttons. 

I should note one final feature of 
the program. In the original version 
of the program, the pen pattern was 
set and each point plotted using 
QuickDraw’s _Line command as soon 
as the iteration for each point was 
completed. I found, however, that 
plotting ran about 20 percent quicker 
if I deferred the actual drawing until 
forced to by a change in the pen pat- 
tern. You can force the program to 
plot each point as it’s calculated by 
holding down the mouse when the 
program first launches. 
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THE SOFTSTRIP SYSTEM 


A CHOICE. 


Until now you were stuck with disks. 

No more. Install our unique STRIPPER™ software 
on your personal computer today and discover the 
many benefits of the fastest, easiest, least expensive 
way to handle information. 


STRIPPER lets you print— ON PAPER — your own 
machine readable Softstrip data strips using your dot 
matrix printer. The Softstrip System Reader reads that 
information into a computer rapidly. With STRIPPER 
and the reader, your PC and printer become part of 
the most versatile information handling system 
available. 

With this system you can do anything you wish with 
any data you have in your PC — ON PAPER. 


DATA ENTRY: Why use keystrokes when you can 
eliminate them with data strips? Whatever the 
document - invoices, packing slips, memos, letters, 
sales reports, the list is endless — simply print a data 
Strip right on the same printed page. Now you have 
a document that is both human readable and machine 
readable. A typical document can be entered in only 
15 seconds using data strips. And, it ends keystroke 
errors forever. 


DATA DISTRIBUTION: Why copy disks? It’s time 
consuming and expensive. Softstrip data Strips will 

end all that. Simply photocopy as many data strips as 

you like and send them by mail. Data Strips ignore 

folding, coffee stains, ink marks and, by the Way, 


magnetic fields. And if you’re using telecommunica- 
tions, you can stop making the phone company rich. 


DATA STORAGE AND RETRIEVAL: Why have a 
file of disks and a file of paper? Eliminate one with 
Softstrip data strips. File the data strip with the docu- 
ment. Better still, print the strip right on the document. 
Then put it in a file or binder. 

Retrieval is simple. To find existing data, pull the 
document and its related data strip from the file. 
They've been stored together. Then use the reader 
to enter the data. No more hassle trying to match 
documents with the right disk — if you can find it. 


DATA TRANSFER: Why bother with cables, 
modems and phone lines to move files between 
computers? A Softstrip data strip generated by an 
IBM PC can be read into another PC, or compatible, 
an Apple or even a Macintosh. If you work at home 
on a Macintosh, make a data strip on your printer, 
take it into the office and read it into your IBM PC. 
Simple. And we’ve created the utilities to let you do 
that easily. (See Application Notes on opposite page.) 


Fascinating, isn’t it? Anything you can do with disks 
can be done with the Softstrip data strip system — 
faster, easier and at lower cost — ON PAPER. 


All you need is STRIPPER software at $19.95 and 
the Softstrip System Reader at $199.95. 


He URE a ADs) Moment) 


NOW! TRANSFER DATA — 
PROGRAM TO PROGRAM WITH 
SOFTSTRIP”. 


Now you can move data between programs quickly and easily using 
SOFTSTRIP data strips. 


Using the Softstrip System, you can move data between computers and 
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such programs as WordStar and MacWrite, dBASE and AppleWorks, a Hy 

Lotus 1-2-3 and Excel and ReadySetGo and many others. ie ial 
a Md ie 

We've created a series of several dozen Application Notes on Softstrip data ‘ tit i 


strips. These lead you through simple steps to make the file transfer as 
easy as possible, adding even more versatility to your personal computer 
when you purchase the SOFTSTRIP SYSTEM. The advanced system you've 
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been hearing so much about. ae 
Ayla pay 
All you need to move data between programs is STRIPPER™ software at Tank 
$19.95 and the Softstrip System Reader at $199.95. we 
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- ytd fs Pa 
For acomplete list of Application Notes, contact your dealer or call Cauzin. Oe 
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LIBRARY HI TECH JOURNAL and LIBRARY HI a 
_ TECH NEWS, the world’s leading source of A 
Oe information on library automation and information Banas | 
yy ¢ ll | I" technology, are printing Softstrip data strips to ey 
a i Vhs) lh i] make it easier for their readers to stay abreast of aA diy 
Co : bo i the vast amount of material published monthly. : Fae 
. 4 According to C. Edward Wall, Editor and Pub- He iil 
saa = fisher, LIBRARY HI TECH NEWS monitors more 
than 200 publications dealing with information 
with application to library operations. The newsletter includes bibliog- : 
raphies of books, conference reports and articles published in 
hundreds of other periodicals. : 
The newsletter prints bibliographies in Softstrip data strip form. As 4 i 
Mr. Wall notes, this permits any library or information center to build an i hi 
a valuable on-line data base of useful information. a i : 
The data strips are ASCII based, and will operate with most of the i HH 
information retrieval software developed for micro computers. a ‘ : 1 
ant 
LIBRARY HI TECH JOURNAL and LIBRARY HI TECH NEWS are published by Pierian Press, sts Hi | 
Box 1808, Ann Arbor, MI 48106 (313) 434-5530 : a PMA ia 
af i nH 





Users’ Groups: Call for Special User Group Discounts. ; 


ACT NOW! Don’t delay. See your local Softstrip dealer or call us at 
1-800-533-7323. In Connecticut: 203-573-0150. 


This data strip contains 
IBM2MAC, a utility that 


For Europe and Asia Contact: runs on the IBM and 


CAUZIN Softstrip International, Ltd. converts an IBM file to 
835 South Main Street 53 Bedford Square Macintosh format. 
Waterbury, CT 06706 London, WC1 B3DP England 

(203) 573-0150 01-631-3775 Telex: 263874SOFTST G 


Circle no. 307 on reader service card. 


ARTICLES 


A Digital Dissolve 





for Bit- Mapped 


Graphics Screens 


s high-resolution, bit-map- 
A ped displays become more 


are beginning to look like movie 


by Mike Morton 


popular, computer screens | 


screens. Using fast bit-transfer sub- | , 


routines, programs can pan, zoom, | 


cut between images in the blink of an 


eye, and even animate in real time. | 


All these effects use raw processor 
power to copy bit images as quickly 
as possible. But how about another 
standard film technique: dissolve 
shots? How can a program fade from 
one bit-mapped image to another? 
This article describes a way to do this 
very rapidly. 

In the analog video world, fading 
from one image to another is easy: 
You just mix two images, bringing the 
new image's intensity up while de- 
creasing the other’s. In the more dis- 
crete software world, color or gray- 
scale displays can be dissolved by 
computing a weighted average of the 
old and new values for each pixel, 
then varying the weighting over time, 
much like with analog video. 

Dissolving monochrome bit- 
mapped images is a different prob- 
lem. You can’t sum x percent of one 
pixel’s bit and (100—x)percent of an- 
other’s. There’s too little variation 
per pixel to make a smooth transition 
from one image’s pixel to another’s. 
Although some displays have more 
than one bit of information per ele- 
ment, they still can’t be faded by 
weighted averaging. For instance, a 





Mike Morton, c/o Lotus Development 
Corp., 161 First St., Cambridge, MA 02142 


48 





24X80-character display has values 
that can’t be averaged in the same 
way as color values or gray-scale lev- 
els can. (Can you imagine a screen 
that faded a 0 into a 9 by displaying 
all the digits in between in sequence?) 

If monochrome bit maps (and some 
other displays) can’t be averaged, 
how can they be dissolved? One solu- 
tion is to copy pixels (or characters or 
whatever) to the screen in a more-or- 
less random order. This is easier said 
than done: unlike most problems in- 
volving random numbers, this one 
requires a random generator that 
produces each desired value exactly 
once. 

Instead of producing a random se- 
quence of coordinate pairs in an ar- 
ray of pixels, you can simplify the 
problem to a one-dimensional task by 
numbering each pixel starting with 
zero. If you can produce the pixel 
numbers in a random order, you can 
use that to copy the corresponding 
pixels to a screen in a random order 
and create a dissolve effect. 

An analogous problem is a pro- 
gram to deal a deck of cards. If suits 
are numbered 0 to 3 and cards from 0 
to 12 then, much like the pixel-num- 


bering idea, you want to produce 52 
unique coordinate pairs from (0,0) to 
(3,12). If you can produce a random 
sequence of integers from 0 to 51, 
then for each sequence element E, 
you can compute 


suit = E/13 
card = Emod 13 


A common method for scrambling 
a set, such as the numbers 0 to 51, is to 
put the elements in an array and 
scramble the array by picking two 
random elements repeatedly and 
swapping them. This method has 
limits, though: How can you shuffle a 
million cards? To dissolve a 
1,024 X1,024-pixel monochrome bit 
map, you need the 1,048,576 pixel 
numbers scrambled. The storage de- 
mands of the array method are tov 
much for many situations. 


A Software Sequence 
Generator 

The software magic that avoids using 
giant arrays is based on a simple hard- 
ware circuit. Figure 1, page 49, shows 
an 8-bit shift register. At each cycle, 
selected bits are sent through an N- 
way exclusive-OR gate, the entire con- 
tents of the register are shifted left by 
one bit, and the result of the exclusive- 
OR feeds in as the new rightmost bit. 
If the correct bit positions are fed into 
the exclusive-OR, the register will 
cycle through all possible nonzero 
combinations. If you interpret the 
register contents as a number, the se- 
quence produces each of the num- 
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bers from 1 to 255 in a fairly random 
sequence. (How random is it? Not 
very, actually. It fails many statistical 
tests for randomness. But the circuit 
has a software analog that is easy to 
code and runs so fast that the imper- 
fection can be overlooked.) For any 
size of register, you can exclusive-OR 
certain bit positions to make the regis- 
ter cycle through all nonzero combi- 
nations. A given size of register may 
have several correct patterns of bit 
positions; Table 1, page 50, shows one 
pattern for each register size from 2 to 
32. (Also see inset article ‘““Those Magic 
Constants” on page 55.) 

An N-bit register produces the 
numbers from 1 through 2N—1. My 
original goal was to produce the 
numbers from 0 through the size of 
the pixel array to be copied. I'll ex- 
plain how to reconcile this differ- 
ence as soon as I’ve turned this hard- 
ware sequence into software. 

You could code a routine to mimic 
the circuit exactly, but there's a 
slightly different algorithm that is 
much faster. It uses a ‘“‘mask”’ that 
corresponds to the bits selected in the 
circuit. For an 8-bit “register’’—pro- 
ducing values from 1 to 255—one pos- 
sible mask is 10111000, or $B8. Each 
sequence element is derived from 
the previous one with this method: 
Shift the original value right (not left) 
by one bit; if a “1” bit falls off the edge 
because of the shift, exclusive-OR the 
mask into the value. In assembly lan- 
guage, this can be done very easily. 
The following 68000 code takes a se- 
quence element in DO and produces 
the next one in DO using the mask 
previously put in D7. 

LSR #1, DO ; shift this sequence 

element right 1 bit 

- if no bit falls into 
Carry, skip the 
KOR Ss : 

-_..else XOR the 

mask into the new 
value 

; (now process the 
new element in DO) 


BCC.S noxXOR 


EOR D7,D0 


noxXOR: 


In C, it’s not as easy to express the 
idea of a bit falling off the edge dur- 
ing a shift, so the code is more long- 
winded: 


if (X&1) /* is the low bit set? */ 
X = (X>>1)mask; 
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/* yes: shift value and XOR in the 
mask */ 

else X = (X>>1); 
/* no: just shift the value */ 


A First Attempt 

Now, with a software sequence gen- 
erator and a way to map that se- 
quence onto an array of pixels (or 
whatever), you can write a first cut at 
the dissolve algorithm. The idea is to 
find a ‘“‘register width” for a se- 
quence generator that generates at 


(base 2). 


: (0 is a special case, 
notproduced 
by the sequence) 





Figure 1: On 8-bit hardware sequence generator. The mask is 10111000 


Figure 2: Mapping sequence elements into a pixel array using the 


least as many numbers as there are 
pixels. (The highest-numbered se- 
quence elements don’t map to pixels 
in the array—that’s OK, they'll be dis- 
carded.) Figure 2, below, illustrates 
this approach. 

As the main loop generates each se- 
quence element, the element is 
mapped to a pair of coordinates, just 
as in the card-dealing program. Coor- 
dinates outside the array are ignored, 
whereas those in bounds are copied. 
The loop ends when the sequence re- 



















| (pixel numbers 18 
_ through 31 are ignore 


formulas row = N/width and column = N mod width. Values of row >= 


height are ignored. 


(Ois still a special — 
case, not produced 
by the sequence) 





, N=14, for example, maps _ 
to row=2, column= 


Figure 3: Mapping sequence elements into a pixel array using the 
formulas row = N>>rowshift (rowshift = 3) and column = N&colmask 
(colmask = 00111 base 2). Values of row >= height and values of column 


>= width are ignored. 
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DIGITAL DISSOLVE 
(continued from page 49) 


turns to the original element. The 
function is shown in Table 2, page 52. 
This function finds the total number 
of pixels to copy and then the num- 
ber of the highest pixel. 

The correct width of sequence gen- 
erator is found with a function called 
bitwidth( ). Given a number, this 
function just tells you how wide a 
register must be to hold the number. 
In other words: What width of gener- 
ator is needed to produce at least as 
many pixel numbers as needed? The 
function bitwidth is shown in Table 3, 
page 54. 

Once the width of the register has 
been found, the randmasks| ) array is 
used to find the magic value used to 
generate the sequence. The sequence 
length can be nearly twice as long as 





OONATAWN =< 





1073741823 





32 | Asp0d000 








from 1 to 2~—1. 








to 32 bits wide 
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For any given width (w), there is usually more than one mask that produces all values 
, vese particular masks are chosen because they can all be packed 
into a byte. See Listing One for an example of how to pack and unpack them. — 


the number of pixels to copy because 
the length must be a power of 2. The 
[0] and [1] elements of the array 
aren't defined—the smallest genera- 
tor is 2 bits wide. 

I haven't specified the copy( ) rou- 
tine—the routine that copies a pixel 
from one pixel array to another. It 
will depend on which computer 
you re using; I'll talk more about this 
later. Remember that copy( ) doesn’t 
need to copy a pixel to the screen; it 
can copy a character or any array 
element. 

Because the sequence never pro- 
duces a zero value, the program has 
to do the (0,0)th element explicitly. 
Eagle-eyed users will notice that the 
top-left pixel is always the first or last 
to dissolve in. 

This method works, but it’s not fast 
enough for many purposes. What 
makes it so slow is the division and 










2147483647 
4294967295 













Table 1: Masks to produce pseudorandom sequences for registers from 2 


modulo computations: 


row = element / width; 
column = element % width; 


In assembly language, you can often 
do both of these with one instruction, 
but it’s still awfully slow. A divide in- 
struction on an 8-MHz 68000 takes 
about 17 microseconds. Is there a bet- 
ter way? (Of course, or I wouldn't 
have brought up the problem.) 


A Faster Method 

To make it faster, you can use a po- 
tentially longer sequence but use a 
mapping that is faster than the di- 
vide-and-modulo computation. Fig- 
ure 3, page 49, illustrates this method. 
Both the height and width of the ar- 
ray are rounded up to the next 
power of 2. A sequence element is 
then broken up into row and column 
numbers by bit operations, which 
are much faster than divide and 
modulo. With this method, the num- 
ber of sequence elements generated 
can be almost four times the number 
of pixels—twice as bad as the worst 
case for the simpler algorithm. But 
generating elements is so much fast- 
er than division that the new method 
is still faster. This algorithm is shown 
in Table 4, page 54. It is really a lot like 
the original routine. The difference is 
that the mapping is faster and the se- 
quence may be longer because the 
mapping discards more elements of 
the sequence. 

At one level, that’s all there is to it. 
You just have to write a copy( ) rou- 
tine to copy a single pixel (or whatev- 
er) and optimize the code so the dis- 
solve effect happens quickly. These 
tasks may not be simple for some ma- 
chines, especially if you're trying to 
quickly copy tens of thousands or 
perhaps a million pixels on a high- 
resolution screen. 

Every machine will probably need 
a slightly different copy( ) routine to 
handle the quirks of your graphics 
hardware or software. In the Macin- 
tosh, for example, a bit map (such as 
the image to display or the screen to 
copy it to) is an array of pixels laid out 
in rows in memory. Indexing into it is 
done in just the same way as any lin- 
ear array being treated as a two-di- 
mensional array. Although most ma- 
chines treat bit indexing differently 
from byte indexing, it may be helpful 
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A MEGABYTE FOR DOS! 





MicroWay is the world’s leading retait 
er of 8087s and high performance PC 
upgrades. We stock a complete selec- 
tion of 8087s that run from 5 to 12 
MHz All of our coprocessors are 
shipped with a diagnostic disk and the 
best warranty in the business — one 
year! We also offer daughterboards for 
socketless computers (NEC PC) and 
287 Turbo which increases the clock 
speed of the 80287 from 4 to 10 MHz 
Our NUMBER SMASHER/ECM™ runs 
at 12 MHz with a megabyte of RAM 
and achieves a throughput of.1 mega- 
flops with 87 BASIC/INLINE, Intel For- 


SPEED UP YOUR AT 
OR AT COMPATIBLE 
_ WITH 287TURBO”* 10 MHz 





A2D-160™ MicroWay’s Data Acquisition Board 
performs 160,000 12 bit Analog to Digital conver- 
sions per second! Includes software drivers. The 
fastest 12 bit A to D board available. For the IBM 
PC XT and compatibles. ................. $1295 


87SFL™ Accurate and fast Scientific Sub- 
routine Packages. More than 145 functions: 34 
Elementary Fens, 18 Probability and Statistical 
Fens, 15 Random Number Generators, Ei(x), E,.(x), 
li(x), Si(x), Ci(x), T(x), W(x), B(x,w), L(a,b), erf x, S(x), 
C(x), J.(Z), Y.(x), 1.(Z) ,K.(x), Ai(x), Bi(x), Ai’(x), Bi(x), 
ber x, bei x, ker, x, kei’ x, K(x), E(x), F(@|a), E(ela), 
TI(p|a,b), A(a,b,e), A(z), (2), P.(x), H,(x), 
L@ (x), Js (x), G,(p,q,x), C9) (x) and many more. 
Callable from FORTRAN, Pascal, BASIC and C. 1st 
module $250, 2nd on $100. 


MATRIXPAK™ manages a MEGABYTE! 
Written in assembly language, our runtime pack- 
age accurately manipulates large matrices at very 
fast speeds. Includes matrix inversion and the 
solution of simultaneous linear equations. Call 
able from RM or MS Fortran, MS Assembler, or 
ST BASICGANEING. boar ieee each $99 


87FET™ Written in assembly language, per- 
forms Forward and Inverse FFTs on real and cont 
plex arrays which occupy up to 512 — of 
RAM. Also does convolutions, auto correlations, 
hamming, complex vector multiplication, and com- 
plex to radial conversions. Callable from most 
8087 compatible compilers............... $200 
87FFT-2” performs two-dimensional FFTs 
ideal for image processing Requires 87 FFT $100 


FASTBREAK™ 8087 support for Lotus 


4-003" Version TA-OF TAP snc ee cskcus evens $79 
Microsoft Fortran V 3.31 ...........cceesee. $209 
IBM Professional Fortran ...............-. $565 
Ryan-McFarland Fortran V 2.0............ $399 
PLY Fe ORRIET Fe ix iv ccd sown ences wes $477 
Grafmatic for Fortran or Pascal............ $125 
MultiHalo Graphics (1 language).......... $189 
rant Cy WM os ios dk cia ov eee a Paces $299 
STSC APLXPLUS/PC.. ..... 006 ecient eee 

INTEL, JRAM, AST, MAYNARD ..........- CALL 


P.O. Box 79 
Kingston, Mass. 
02364 USA 
(617) 746-7341 
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tran, or Microsoft Fortran. Software re- 
viewers consistently cite MicroWay 
software and 8087 expertise as the 
best in the industry! Our customers fre- 
quently write to thank us for reconr 
mending the correct software and 
hardware to meet their specific needs. 
They also thank us for our same-day 
shipping! In addition to our own prod 
ucts which support the 8087 and 
80287, we stock the largest supply of 
specialized software available. For 
more information call us at 


617-746-7341 





Mega Page™ The only Intel-Lotus EMS board 
which comes with two megabytes of cootrunning, 
low power drain CMOS RAM installed Includes 
RAM disk, print spooler, disk cache, and EMS driv- 
ers. For the IBM PC, XT & compatibles... . $549 


DFixer™ Our disk utility which thoroughly 
checks PC or AT hard disks for bad sectors and 
updates the MS DOS file allocation table accord- 
ingly. Solves the AT hard disk problem! ... $149 


DOptimizer™ Optimizes the way your hard 
disk or floppy stores its files Speeds up accesses 
by recombining fragmented files............ $49 


DCache™ Our disk caching software speeds 
up your I/O by storing repetitively used tracks in 
memory. The amount of memory used can be 
selected in 64 Kbyte banks ................ $49 


87MACRO/DEBUG" Contains all the 
pieces needed for writing 8087/80287 assembly 


code & MicroWays 87DEBUG debugger.$199 


OBJ —ASM™ Amultipass object module trans- 
lator and disassembler. Produces assembly lar- 
guage listings which include public symbols, ex- 
ternal symbols and labels commented with cross 
references. Ideal for patching object modules for 
which source is not available. ............. $200 


87 BASIC™ includes patches to the IBM BASIC 
or MS Quick BASIC Compiler for USER TRANS- 
PARENT 8087 support Provides super fast per- 
formance for all numeric operations including trig- 
onometrics, transcendentals, addition, subtrac 
tion, multiplication, and division. ..... each $150 


87 BASIC/INLINE™ converts the output of 
the IBM BASIC Compiler into optimized 8087 
inline code which executes up to seven times fast- 
er than 87 BASIC. Supports separately compiled 
inline subroutines. Requires the IBM BASIC Contr 
piler Version 1 and a Macro Assembler. Includes 
REM ys iewk bate bneds deasour seca $200 


RTOS - REAL TIME OPERATING SYSTEM 

RTOS is a multi-user, multi-tasking real time oper- 
ating system. It includes a configured version of 
Intel's iIRMX-86, LINK-86, LOC-86, LIB-86, OH-86, 
and MicroWays 87 DEBUG. Runs on the IBM-PC, 
XT, PC-AT and COMPAQ $600 


INTEL COMPILERS' 

Bk ee eerere $750 
at, 2 See eee eres $750 
PE ieee cea ce ia nsvig sf aoe $500 
TL SS ere ner $200 


‘Requires RTOS or iRMX-86. All Intel compiler names and 
iRMX-86 TM Intel Corp. 
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pecro 
8087 Support 


For the IBM PC, PC XT, PC AT and Compatibles. 


NUMBER SMASHER/ECM" 
THE FASTEST ACCELERATOR 
CARD AVAILABLE 
gives you 12 MHz speed in two modes: 
704K or one megabyte of “Extended 


~ Conventional Memory.” MEGASWITCH 


MMU and MegaDOS software make it 
possible to run DOS applications with 
up to 1015K using PC compilers, Auto- 
CAD and Lotus 1-2-3. Does not re 
quire EMS software. Totally compat- 
ible... from $599 for 512K and 9.54 
MHz to$1199 with one megabyte and 
8087-12. 

Cooling Fan (for 12 MHz)........ $80 





8087 UPGRADES 


All MicroWay 8087s include a one year warranty, 
complete MicroWay Test Program and accurate 
installation instructions. 


8087 5 MHz................$114 
For the IBM PC, XT and compatibles. 
8087-2 8 MHz........... $149 


For Wang, AT&T, DeskPro, NEC, Leading Edge. 


80287-3 5 MHz.......... $179 


For the IBM PC AT and 286 compatibles. 


80287-6 6 MHz......... $229 


For 8 MHz AT compatibles. 


80287-8 8 MHz......... $295 


For the 8 MHz 80286 accelerator cards. 


NEC V20, V30........ 5.26. $16, $30 
64K RAM Set 150ns................ $10 
256K RAM Set 150ns.............. $29 
256K RAM Set 120ns.............. $39 
128K RAM Set PC AT.............. $49 


287Turbo” 10 MHz If you own an AT, 
Deskpro 286 or AT compatible, this is the card you 
need to get reasonable numeric performance. It 
ee into your 80287 socket and includes a spe- 
cially driven 10 MHz 80287. The card comes in 
three configurations. The IBM AT version includes 
a hardware RESET button ................ $450 


287 Turbo 8 MHz................... $369 


87/88Turbo”™ isastubby card which includes 
a clock calendar and a speed controller which 
changes the speed of your motherboard from 4.77 
to 7.4 MHz Its use requires your PC to have a 
socketed 8284. Typical speed increase is 1.6 to 
2.0. The card overcomes slow hardware by slow- 
ing up only when such devices are accessed and 
running at full speed otherwise ........... $149 
COPSIOUEE BOR Geo soso os ches Soles ee $149 


286 TurboCache” This accelerator for the 
PC or XT uses 8K of cache memory and 80286/ 
80287 processors to provide an average speed 
increase of 3:1 for most programs. Call for speci 
fications and benchmarks. .............+-- $469 


Call for our complete catalog of 
software which supports the 8087. 


in London, please phone 223-7662 


'dissolvet (height, width) 
int height, width; 


int pixels, lastnum; 
intregwidth; 
register long mask; — 
iF ler unsigned ine goon | 
: ‘regi ter int row, column; — 


/* first version of the dissolve algorithm - 
/* number of rows, columns */ 


/* number of pixels; last pixel’s number */ 

/* “‘width’’ of sequence generator */ 

/* mask to XOR with to create sequence */ 

/* one element of random se 
— /* row and column numbers for a pixel */ 


quence */ 





/* Find smallest register that produces enough pixel numbers */ 


pixels = height * width; 
lastnum = pixels—1; 

| regwidth = = bitwidth (lastnum); 
mask = randmasks [regwidth]; 


/* Now cycle through all sequence elements. */ 
element = 1; 
do { 
row = element / width; 
column - = element % width; 
if (row < height) 
copy (row, column); 


/* Compute the next sequence element */ 


if (element & 1) /* is the low bit set? */ 


/* compute number of oils to dissolve */ 
/* find last element (they go 0 . 
/* how wide must the register be? */ 
/* which mask is for that width? */ 


. lastnum) */ 


/* 1st element (could be a nonzero) | 


/* how many rows down is this pixel? */ 

/* and how many columns across? */ 

/* does this seq element fall in the array? */ 
/* yes: copy the (r,c)th a * 


element = (element >> 1) mask; /* yes: shift value, XOR in mask */ 
else element = (element >> 1); /* no: just shift the value */ 


} while (element != 1); 


copy (0, 0); 
/* end of dissolve1( ) */ 


Table 2: First attempt at dissolve algorithm 


/* loop until we return to original element */ 


_/* kludge: the loop doesn’t produce (0,0) */ 
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DIGITAL DISSOLVE 
(continued from page 50) 


to keep all offsets as bits and convert 
to bytes only when necessary. Thus, 
on the Mac, if DO contains the bit off- 
set of the first bit of the array in mem- 
ory, and D1 and D2 have the row and 
column numbers, you can set the 
(D1,D2)th bit with the code fragment 
shown in Table 5, page 54. 

All the arithmetic in Table 5 is in 
terms of bits until the LSR extracts the 
address, which then has to be moved 
to an address register to be useful. Bit 
numbering in the Mac screen isn’t 
like byte numbering (byte numbers 
increase as you move to the right 
across the screen; bit numbers de- 
crease within each byte), so the bit 
number in D3 has to be converted 
with the NOT. Finally, the BSET sets 
the bit in the correct byte. This idea of 
mapping a row and column in the 
array to an address in memory is the 
heart of any copy( ) routine for a bit 
map. You use it to test the bit in the bit 
map being dissolved in and to set or 
clear the corresponding bit in the 
screen memory. For a 24 X 80-charac- 
ter display, it’s similar: the mapping 
takes the row and column and index- 
es into a character array in memory 
to get the character to copy to the 
screen. 


The Macintosh Dissolve 
Routine 

Listing One, page 88, is a dissolve rou- 
tine for the Mac. Because its calling 
interface resembles that of the stan- 
dard Mac bit-transfer routine called 
CopyBits, it’s called DissBits. It copies 
the contents of one rectangle in a bit 
map to another rectangle in another 
bit map. In the Mac’s graphics subsys- 
tem, a bit map is a data structure that 
specifies the base address of a chunk 
of graphical data and imposes a coor- 
dinate system on that chunk. For 
more information, see the chapter on 
QuickDraw in Inside Macintosh by 
Caroline Rose et al. 

DissBits is not intended to present a 
clear example of the algorithm; in- 
stead, the main loop contains the 
copy( ) code in-line for maximum 
speed. DissBits actually has three dif- 
ferent loops and automatically uses 
the fastest one it can. The first loop is 
the general case; with some coding 
tricks, it can dissolve at the rate of 
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int width = 0; 
while (N != 0) { 


} 


return (width); 


_/* find “‘bit-width” needed to represent N 7 
p number to compute the width of */ 


int bitwidth (N) 
unsigned int N; 


- [* initially, no bits needed to represent N 7 a. 


_ /* loop ’til N has been whittled down to 0 7 
_ /* shift N right 1 bit (N.B.: Nis unsigned) 1 
__/* and remember how wide N is */ | 
/* end of loop shrinking N down to nothing | 


N>>=1,_ 
width+ +; : 


___ /* return bit positions counted */ 
___[* end of bitwidth( ) */ 





Table 3: The function bitwidth 


dissolve2 (height, width) 


{ 


} while (element ! = 1); 
copy (0, 0); 


/* fast version of the dissolve algorithm */ 
int height, width; /* number of rows, columns */ 

/* bit width for rows, for columns */ 

/* “width” of sequence generator */ 

/* mask to XOR with to create sequence */ 
/* shift distance to get row from element */ 
/* mask to extract column from element */ 

/* one element of random sequence */ 

/* row and column for one pixel */ 


int rwidth, cwidth; 

int regwidth; 

register long mask; 

register int rowshift; 

register int colmask; 

register unsigned long element; 
register int row, column; 


/* Find the mask to produce all rows and columns. */ 

rwidth = bitwidth (height); /* how many bits needed for height? 1 
cwidth = bitwidth (width); /* how many bits needed for width? */ 
regwidth = rwidth + cwidth; /* how wide must the register be? */ 
mask = randmasks [regwidth]; /* which mask is for that width? z 

/" Find values to extract row and col numbers from each element. + 


rowshift = cwidth; /* find dist to shift to get top bits (row) S: 
colmask = (1 < <cwidth)—1; /* find mask to extract t bott mM bits (col) */ 





/* Now cycle through all sequence elements. */ 
element = 1; /* 1st element (could be > any y nonzero) 2, 


—do{ 


row = element >> rowshift; /* find row number for this pixel y 

column = element & colmask; —_/* and how many columns across? */ 

if (row < height) /* does element fall in the array? */ 
&& (column < width)) /*. .. must check row AND column */ 


copy (row, column); /* in bounds: copy the (r, be pixel 4 


/* Compute the next sequence element */ 
if (element & 1) /* is the low bit set? */ 
element = (element >> 1) mask; /* yes: shift value, XOR in mask d 
else element = (element >>1); /* no: just shift the value */ 
/* loop until we return to original element */ 


/* kludge: element never comes up zero */ 
/* end of oem yy 


Table 4: A faster dissolve algorithm 
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<WIDTH>,D1 
D1,D0 
D2,D0 
DO,D3 


convert row number to bit offset of row 
compute bit offset of first bit of the row 
index into the row to get the bit offset 
set aside the final bit offset . . . 

. . and find the byte address from it 
copy that to an address register 
convert the bit index to 68000-style 
set the D3th bit of A0’s byte 


#3,D0 
DO,AO 
D3 
D3,(A0) 


Ne ONE 





Table 5: Code fragment to set (D1,D2)th bit on the Mac 


DIGITAL DISSOLVE 
(continued from page 52) 


about 49 microseconds per pixel. 
When both the bit maps have a width 
that is a power of 2, then the MULU 
instruction in Table 5 can be done 
with a shift instead. In this case, the 
algorithm uses a different loop that is 
about 20 percent faster. As a third and 
final optimization, the loop-choosing 
code notices when the pixel array be- 
ing copied is exactly the width of the 
bit map it’s contained in. (This case is 
common because it includes doing a 
full-screen dissolve.) In this case, the 
check for the column being in bounds 
can be removed and some other tricks 
can be done. In this “high gear,” the 
code runs at 19 microseconds per pix- 
el; it can fade the whole Mac screen in 
about 3.4 seconds. 


Suggestions 

Those of you writing for other ma- 
chines may not want to wade 
through the details of the Macintosh 
code. Besides the optimizations 
above, here are some things you may 
want to try: 


¢ All my code uses 32-bit long words; 
this slows it down considerably but is 
needed for cases in which there are 
more then 2’ bits to dissolve. If your 
machine has fewer than 64K pixels, 
you can always use 16-bit integers. Or 
you can code two loops and have the 
routine choose the right one. 

¢* You can optimize when either the 
width or the height of the array is a 
power of 2. In this case, you know the 
column or row (respectively) extract- 
ed from the sequence element is al- 
ways in bounds. 

¢ You can test the upper bits (the row, 
as I've split things up) of the sequence 
element without extracting them 
first. Just compare it to 1 plus the 
maximum allowed value, shifted 
into position. 

¢ In assembly language, it’s easy to de- 
tect when the loop has finished if the 
last time through the loop the se- 
quence element is 1. When you shift 
the 1 right, you'll get a carry and the 
result will be 0. This carry-and-zero 
occurs only if the element was 1. (On 
some machines, a single instruction 
will detect when both of these condi- 
tions are true—for instance, the 
68000's BLS (branch less than) 
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instruction.) 

e When there’s no carry, the mask 
isn’t XORed into the next sequence el- 
ement, and the topmost bit of the 
new element is 0: This means that the 
row (in my version) is guaranteed to 
be in bounds. Your branch-on-no-car- 
ry can take you to the start of the loop 
as usual but bypass the check for the 
row being in bounds. 

e Because both the row and column 
must be checked to see if they're in 
bounds, extract and check one before 
taking the time to extract the other. 
eThe row number is extracted by 
shifting the sequence element to the 
right, but this result is soon multiplied 
by the width of the bit map when 
finding the bit. If the width is a multi- 
ple of a power of 2, part of the multi- 
ply is just undoing some of the effect 
of the shift. Because longer shifts take 
more time on some processors, you 
can reduce both the shift and the 
amount to multiply by—if you are 
willing to mask the value, too. 


There are some nagging, real- 
world problems. A few I had trouble 
with were: 


¢ Don’t forget the (0,0)th element of 
the array. Because the sequence nev- 
er produces the value 0, this won't 
get done by the loop. You have to 
make it a special case outside the 
loop. 

¢ The algorithm breaks down for tiny 
bit maps because the sequence gener- 
ator doesn’t work for small widths of 
registers. If you can find a way to gen- 
eralize it, I'd like to hear about it. (My 
solution was to detect this case and 
hand it off to the CopyBits routine.) 

e Your machine's graphics software 
will probably not be able to copy 
thousands of pixels quickly one at a 
time, and your copy( ) routine will 
have to be in assembly language and 
directly alter screen memory. Be 


careful to check exactly how this in- | 


terferes with the graphics software. 
For instance, DissBits must hide the 
Mac cursor during the time it’s direct- 
ly accessing screen memory. 


There are a lot of variations I 
haven't tried yet; I’d be interested to 
hear from anyone who experiments 
with these ideas: 


e My copy( ) routine for bit maps tests 
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When the sequence generator shifts | for the constants. I set a microcom- 
a 1 bit out of the register, it exclusive- | puter to work on the problem, using — 
ORs a magic constant into the run- | the slower method of directly simu- 
ning value of the register. Different | lating the type of circuit shown in ~ 
register widths require different con- | Figure 1 (I didn’t know about the soft- 
stants; Table 1 gives a list of some con- 
stants that work. How do vou find 
these values? 

The basis for the generator is rooted | scription errors in Table 1, 
in the theory of prime polynomials. | shouldn’t have ‘much 

Those of you who remember your ab- search for the constant 

stract algebra course may be interest- 
ed in pages 209—213 of Numerical 
Recipes: The Art of Scientific Comput- 
ing by William H. Press et al. and 
pages 29—31 of The Art of Computer 
Programming by Donald E. Knuth. 

If you prefer direct evidence, it’s | registers up to 100 bits wide. 
not hard to write a program to search 


flip: A function to return a random boolean value in DO.b. 
; D7 is used to keep the current state of the “shift register’. 
; The register is 16 bits, so the pattern of bits repeats after 64K calls. _ 


flip: LSR.W #1, D7 
scs.. . 00 


; shift D7 right one bit S 

3 oe 3 
BCC.S __ end 3 ifno bit carried, D7 is new element: done 
EORI.W  #$B400,D7 __; elseXORinmagicvaluefornewone sss 
aS... 4 return with DO.b = random boolean 





Table 6: Sequence generator for coin-flip subroutine 





Random Bits vs. Random Bytes _ 





The shift-and-xOR method the dis- | statement IF RND < 0.5 THEN. a 
solve uses to generate ps pseudorandom | This isa lot of effort to produce aran-_ 
numbers isn’t very random. If you | dom bit. You can write a short, f 
- watch some sizes of rectangles being coin-flip subrou tine vets x the 
dissolved, you ‘ll see ephemeral pat- 
terns. Surprisingly, though, the pat- 
tern of bits shifted off the end of the 
register is random. In The Art of Com- 
puter Programming, Knuth discusses | nothing but zero bits. 
the difference between random bits 
and numbers composed of the bits. 
Many programmers writing games | You can write a “self-starting’’ ver- 
or other programs wind up flipping a | sion that is no slower and 1 no 10 longer | 
coin with something like the BASIC | than the sone _ 
















Racaniahes to initialize D7 to any / 
nonzero value. Zero traps the sub- 
routine in a demon state, poe 


















Here’s a puzzle: Change the fune- / 
tion so it doesn’t need D7 initialized. 
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ware version at that point). It took 
about two CPU-weeks. es 
_ Assuming I haven't fade. tran- 

















(Perhaps some constants 
random than others?) , 
should give you plenty of informa- 
tion—at least until someone pro- 
duces billion-pixel displays. But just 
in case, Press et al. give constants for 
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DIGITAL DISSOLVE 
(continued from page 55) 


a bit in the source and then branches 
to either set or clear a bit in the desti- 
nation. If, before the dissolve, the des- 
tination is exclusive-ORed into the 
source, the source becomes a bit map 
of the bits that differ between the 
two images. Then the copy( ) routine 
still has to test the source but toggles 
the destination bit only when the 
source bit is 1—this means the ad- 
dress calculation for the destination’s 
bit can often be skipped. If your 
graphics subsystem supports logical 
operations (such as exclusive-OR) on 
block copies, the first XOR pass can be 
very fast. Finally, if you do a third 
block-XOR from the destination back 
to the source, the net effect of the 
three XORs is to swap the two images, 
so your destination is preserved in 
the source and can be restored easily. 
¢ Because the loop’s state is controlled 
by one variable (the sequence ele- 
ment), it should be easy to write a par- 
tial dissolve by changing the starting 
or ending elements of the sequence. 


® Supports multi key 
~~#~-Very-easy to-use: 
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This would allow you to “blend” im- 
ages, create effects like the Star Trek 
transporter, and so forth. 

¢ Because all this came from a hard- 
ware circuit, how about hardware 
support for the dissolve? Many ma- 
chines have custom hardware to sup- 
port raster operations; why not sup- 
port this one? 

¢ Instead of copying graphical data, 
variations on the dissolve theme 
could perform standard Boolean op- 
erations with two or more images, in- 
vert an image, and so on. 


Finally, don’t let your imagination 
be limited to dissolve subroutines. 
The random engine used in the dis- 
solve has other uses. You can do 
much more than shuffle a deck of a 
million cards. For instance, a pro- 
gram slowly drawing the Mandel- 
brot set could draw pixels randomly 
so that the basic image becomes ap- 
parent sooner, without having to 
wait for the entire drawing. In 
browsing through an image database 
with a slow modem, you can cancel 
an image without waiting for it to be 


75.00 


(800) 833-3061 


THE LINK WILL TAKE 
ABouT 15 MIN...- 


completely drawn (I believe this idea 
is Ted Nelson’s). As described in the 
inset article “Random Bits vs. Ran- 
dom Bytes” on page 55, you can write 
a coin-flip subroutine. The unusual 
property of generating unique values 
in pseudorandom order makes the 
sequence generator a useful tool for 
many applications. 
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DYNAMO SCREEN 
PAINTER 
AND FORMS CREATOR 


DOES IT ALL 
RIGHT FROM YOUR KEYBOARD 
AUTOMATIC CODE GENERATION 
Data or Help Screens & Windows 
Data Entry Screens & Windows 
Menus 
FAST, FLEXIBLE, EASY 
Save Man-Months of Programming 
Full Control of Screen Attributes 
Monochrome or Color 
by Form, Screen, Window or Item 
FAST EASY MENU GENERATION 
1-2-3 Like, Many Others 
Full Read/Write Security by Item 
Requires Dynamo Data Entry 


Screen painter & manual $129.95 


B-TREE LIBRARY 
& ISAM DRIVER 


POWERFUL DATA MANAGER 
Fixed/Variable length records 
Fast! Easy To Use! 

16.7 Million Records/File 
16.7 Million Keys/File 


Full source. No royalties. $129.95 
MAKE Utility (Snake) $59.95 
SUPERFONTS FOR C 


Super Size Characters 
Monochrome adapter 
Color/graphics adapter 
8 Font Libraries 


Font and Function Library 


C-TERP 


INTERPRETER FOR C 
No Compromise, Full K&R 
Built In Screen Editor 
Fast, Fast Compile/Link 
Use External Libraries! 
Symbolic Debugging 
Single Stepping 
Rave Reviews! 
2 disks and manual 


$49.95 


$299.95 


CHARACTER & CURRENCY SYMBOL ° U.S./EUROPEAN 
NUMBER STYLES ¢ MORE DATA TYPES e ONE CALL WILL 
OPERATE ENTIRE SYSTEM ¢ SUPPORTS IBM PC/XT/AT & 
COMPATIBLES « SUPPORTS MICROSOFT, COMPILER LAT- 
TICE, AZTEC, CI86, ANY FULL K & R OR ANSII COMPILER 


COMBINE AND SAVE! 


SCREEN PAINTER + DATA ENTRY 


CRATE TON OPUS 2 ec cake oe ves $179.95 
(A $260 VALUE) 


C LIBRARY plus POWER WINDOWS 
BOTH TOr DRY oes ee a $179.95 


+ SUPERFONTS FOR C..... $199.95 
(A $310 VALUE) 


C BUSINESS LIBRARY 
INCLUDES C FUNCTION LIBRARY, POWER WINDOWS, 
SUPERFONTS FOR C, B-TREE LIBRARY, ISAM 


PME ss Pick oe nee aE $299.95 
(A $440 VALUE + FREE UNIX WORKALIKE) 
C TOTAL LIBRARY 


INCLUDES C FUNCTION LIBRARY, POWER WINDOWS, 
SUPERFONTS FOR C, B-TREE LIBRARY, ISAM and 
C-TERP C interpreter 


PU FO ea el a OR os $499.95 
(A $740 VALUE + FREE UNIX WORKALIKE) 


C DYNAMO LIBRARY #1 
SCREEN PAINTER, DYNAMO DATA ENTRY, POWER 
WINDOWS, C FUNCTION LIBRARY, SUPERFONTS for C 


(A $570 VALUE) 


C DYNAMO LIBRARY #2 


ALL OF C DYNAMO LIBRARY #1 
PLUS B-TREE &ISAM....... $349.95 


(A $700 VALUE + FREE UNIX WORKALIKE) 


C DYNAMO LIBRARY #3 
ALL OF C DYNAMO LIBRARY #2 


PLUS GIER a2 s 0 ieace ss) $549.95 
(A $1000 VALUE + FREE UNIX WORKALIKE) 


**FREE PC UNIX, PCVMS OR O/S TOOL BOX WITH ANY 
PURCHASE OVER $295.00 LIMIT ONE PER CUSTOMER 


Offer expires 11/30/86 


OPERATING SYSTEMS 
Multi-User Multi-Tasking Networking, Full Source 
LIST 
PCNX™ UNIX WORKALIKE $99 FREE * 
PCVMS™ 99 FREE- 
O/S TOOL BOX™ (Build your 
own operating system) 99 FREE * 
™WENDIN SOFTWARE 


*with purchase of any Entelekon combination 
library priced at $295 or more. 

Limit 1 Special Offer item per customer. 

Offer expires 11/30/86 


THE C DYNAMO FAMILY ...C TOOLS THAT WORK TOGETHER 


Entclickon 


12118 Kimberley, Houston, TX 77024 


Circle no. 173 on reader service card. 


713-468-4412 





SINCE 1982 


VISA-MASTERCARD-CHECK-COD 


Listing One (Text begins on page 14.) 


Listing 1 — set.h 


£- Ze BEL iH: Header to use the set manipulation routiness in set.c 

2 x 

3 * Copyright (c) 1986, Allen I. Holub. All rights reserved 

4° .*/ 

5 

6 #define DEFBYTES Z /* bytes in def set (>= 1) af 
7 #define DEFBITS (DEFBYTES * 8) /* bits in default set *«/ 

8 

9 typedef struct 
10 { 

11 unsigned nbytes : 13; /* Number of bytes in map x7 
12 unsigned compl. si; /* This is a negative true set */ 
13 int nbits; /* Number of bits in map a/ 
14 unsigned char *map; /* Pointer to the map ws 
15 unsigned char defmap(DEFBYTES]; /* The map itself af 
16 } 
i}- SET? 

18 
19 extern void set op (int, SET*, SET*, SET*); /* Routines in set.c */ 
20 extern int set cmp ( SET*, SET* . 
21 extern int subset ( SET*, SET* es 
22 extern int num ele ({ SET* iz 

23 extern void delset ( SET* ys 

24 extern SET *newset ( 7; 

25 

26 #define UNION 0 /*-% is in sl or-s2 s/f 
27 #define INTERSECT 1 f*-x is in. si ands? “Ff 
28 #define DIFFERENCE 2 /*® x18 in St. Bat: Is2 of :in sz bat’ isi /*7 
29 #define INVERT 3 /* ones complement “} 
30 #define ASSIGN 4 /* sl = s2 ef 
31 #define CLEAR 5 /* ad = all bits cleared af 
32 #define FILL 6 /* d = all bits set af 
33 
34 #define union (d,sl,s2) set op( UNION, d, a s2 } 
35 #define intersection (d,sl1,s2) set op( INTERSECT, d, sl, S2 ) 
36 #define difference (d,sl,s2) set op( DIFFERENCE, d, Si. s2 } 
37 #define assign (d,s1) set op( ASSIGN, d, 846s: SUED = +) 
38 #define invert (d,s1) set op( INVERT, a: Si; NULL ) 
39 #define clear (d) set op( CLEAR, d, NULL, NULL  ) 
40 #define fill (d) set op( FILL, a, : NOLL, “NOLL ~) 
41 #define complement (d) ( (d)-—>compl = ~(d)->compl) 

42 

43 #define equivalent (sl, s2) ( set_cmp(sl1,s2) == 0 } 

44 #define disjoint (sl,s2) ( set_cmp(sl1,s2) == 1 ) 

45 

46 #define GBIT(x,s,op) ( ((s)-—>map) [(x) >> 3} op (1 << ((x) & 0x07)) ) 
47 

48 #define remove (x,s) ( ((x) >= (s)-—>nbits) ? 0 : GBIT (x,s,&= ~) ) 
49 #define add(x,s) ( ((x}) >= (s)->nbits) ? addset (x,s) : GBIT(x,s,|= ). ) 
50 #define ismember(x,s) ( ((x) >= (s)-—>nbits) ? 0 : GBIT (x,s,& » ) 
51 

52 #define test (x,s) { ( ismember(x,s) )} ? !( (s)-—>compl ) : (s)—>compl ) 









C Utility Library $185 


e Pascal e Fortran °C e New Release - Version 3.0 
Fastest Library Available e 400 C Functions, Source Included 












e Powerful and Easy to Use e Pop-up Windows and Menus 

e Major Graphics Boards e Fastest Screen Output Available 

e Filling, Get & Put e Strings, Files, Keyboard, Mice, DOS 
e Ten Character Fonts Inc. e Disable Ctrl-Break, Disk Drive Status 









ESSENTIAL SOFTWARE, INC. 
P.O. Box 1003 Maplewood, NJ 07040 914/762-6605 
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Listing Two 


listing 2 -- set.c 
#include <stdio.h> 
#include <ctype.h> 
#include <set.h> 


extern char waloc:: ( int, ~int. + 


#ifdef DIAG 

# define D(x) x 
#else 

8 define D(x) 
#endif 


PR 
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| 
| 
| 
| 
| 
| 
| 
| 
1 
| 
| 
1 
| 
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™~ 


ales 
Why 


15 #define max (a,b) (la). > tb} 2 ~fa).- 2. ty) 


19 SET *xnewset () 
ae SET *p; 


2 if ( ! (p=(SET *) calloc(sizeof(SET),1)) ) 

24 { 

29 fprintf(stderr,"Can't get memory for set\n"); 
26 return NULL; 


28 else 


30 p->map = p->defmap; 
Su p->nbytes = DEFBYTES; 
32 p->nbits = DEFBITS; 
33 } 

34 return p; 


39 void delset( set ) 
40 SET *set; 


42 /* Delete a set created with a previous newset 
43 */ 


45 if( set->map != set->defmap } 
46 free( set->map ); 


48 free( set }; 


53 static void enlarge ( need, set ) 
54 SET *set; 


56 f* Enlarge the set to "need" bytes, filling in the extra 


57 ¥ bytes with zeros. > 
ye (continued on next page) 


Essential Communications Library $185 BreakOut Asynch Debugger $125 


¢ Comprehensive, reliable functions with source e Test protocols, monitor lines 

e Interrupt driven up to 9600 baud ¢ Window interface, on-line help 

e XON/XOFF and XMODEM supported e Single key commands and macros 
e Transfer files with one function call e ASCII/Hex “Scratch pad” editor 

e Hayes compatible modem support e Capture/send data in buffers/files 


e Thorough manual & asynch tutorial ¢ Detailed manual with sample screens 
¢ Compatible with major C compilers, Pascal soon. e Requires PC/XT/AT or true compatible 


Essential Communications/BreakOut Combination Package $250 





ESSENTIAL SOFTWARE, INC. 
P.O. Box 1003 Maplewood, NJ 07040 914/762-6605 
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HOW 
WOULD IT 
FEEL TO 
HAVE THE 

POWER OF 
TWO VAX 

11/780s 
ON YOUR 
DESK? 


With the Consulair™ 
Professional Development 
Workstation, Now You Can! 


he programmers dream system 

takes an ordinary Macintosh™ 
and adds the Levco Prodigy 4, a 32 
bit 68020 with a 68881 floating point 
coprocessor accelerated to 16 MHz, 
4 megabytes of high speed memory, 
and SCSI interface. You get MacUser 
Magazine's Best Development Lan- 
guage of the Year, Consulair Mac C/ 
Mac C Toolkit with Direct Access ™ 
compiler support for the 68020. and 
68881. Together, the system runs 
almost 12 million Whetstones per sec- 
ond and the Sieve benchmark in 0.68 
seconds. As a special introductory 
offer you can upgrade your own 
Macintosh or Mac Plus.for $6495, 
including the complete software and 
hardware development system. An 
internal SCSI 20 Mbyte hard disk is 
available for an additional $995. 


If you want to move in smaller steps, 
we have a complete range of develop- 
ment systems to suit your needs. Leap 
into your future today with the Con- 
Sulair Professional Development 
Workstation. 


Call our Order and Information Hotline 
Today at 415-851-3272. 


















































140 Campo Drive Portola Valley, CA 94025 
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C CHEST 


Listing Two (Listing continued, text begins on page 14.) 


149 


*/ 


register char *new; 
if( !set || need <= set->nbytes ) 
return; 


D( printf ("enlarging %d byte map to $d bytes\n", set-—>nbytes, need) ;) 


if( ! (new = calloc(need, 1)) ) 

fprintf(stderr,"Can't get memory to expand set\n"); 
else 
{ 

memcpy ( new, set->map, set->nbytes ); 


if( set->map != set->defmap ) 
free ( set->map ); 


set->map = new; 
set->nbytes = need; 
set->nbits = need * 8; 


addset ( bit, set ) 
*set; 


7* Addset is called by the add() macro when the set isn't 
* big enough. It expands the set to the necessary size 

* and sets the indicated bit. 

a7 


enlarge( (bit >> 3) +1, set }); 
GBIT Co DLR; set, [= ys 


num _ele( set ) 
*set: 


/* Return the number of elements (set bits) in the set. 
* This routine depends on zero fill when an 

* unsigned quantity is shifted to the right. 

=f 


register unsigned j; 
register unsigned count = 0; 
unsigned char *p; 
int ae 


p = set->map; 
for( i = set->nbytes; --i >= 0 ; ptt) 
for({ } = *pr. 3 pee Tis) 
count += j & Oxl; 


return count; 


t Seti, set2:) 
*setl, *set2; 


/* Compares two sets. Returns zero if they're equivalent, one if 
* they're disjoint, 2 if they intersect but aren't equivalent, 
* -1 is returned if the two sets are different sizes. 
ai 


register char *pl, *p2; 
register int £,. cay => > 


i = max( setl—>nbytes, set2-—>nbytes) > 


enlarge( i, setl ); 
enlarge( i, set2 ); 


/* Make the sets the same size */ 


pl = setl->map; 
p2 = set2->map; 


for(; --i >= 0; pl++, p2++ ) 
{ 
if( *pl != *p2 ) 
{ 
if( *pl * ~*p2 ) 
return 2; 
else 
disj = 1; 


; (continued on page 62) 
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~ FINALLY, A REAL MAINFRAME PRINT SPOOLER ~ 
FOR YOUR IBM PC OR COMPATIBLE 


If you spend part of your PC 
time running applications. Part 
of it printing. And a lot of time 
waiting... 

Imagine a program that prints 
up to 10,000 pages while yourun 
applications. 

PrintQ does that. And more. 


It’s the first really complete 
print spooling subsystem for 
your PC. And your biggest time 
saver ever! 


HOW PrintQ WORKS 


Run your application programs 
as usual, but instead of stop- 
ping after the print command, 
keep right on computing! 
PrintQ intercepts the docu- 
ments bound for the printer, 
spools them to disk, then prints 
them according to your com- 
mands. 


NOT COPY 
PROTECTED 


For users of IBM, 
PC, AT, XT, PCjr and 


Dealer Inquiries Invited 
Corporate Licensing Available 
Circle no. 218 on reader service card. 







most IBM compatibles. 


0: 


Software Directions. Inc 


PRINTQ Version 3.14) 


RE Cm eer 
COT ct oe COD 
ett ae Cena ODS 






Ve nO. os Ong Healthcare System Queue 
ee Cer os Rom LLU rae ria 





























PERSE ED CSPOT RENEE 
| Form 


SIT — 
Date | Time | Pr 





~~ 
of 





y | Radiology Transcnpts 
y | Infection Control Report 
7 y | Emergency Room Schedule 
Ve te ELA 
Oe meh) 
NA se ee aa 


eae 
<z2<<<<2Z2<< 


Chang specs. Delete. Exit. Hold. Klose, Pause. Release 
res Tart. View. Write. Queue select i 


PA Help| 13 {Recisplay BZ ]Allow Ponting 


1985, Software Directions. Inc 
a 





“Pop up” status display lets you monitor and 
control document printing at any time. 


WITH PrintQ YOU CAN... 


e Re-start printing from any page. 

e View documents on screen with 
or without printing. 

e Print up to 255 copies auto- 
matically. 

e Save reports for reprinting. 

e Minimize form changes. PrintQ 
groups similar documents. 

e Print in order of priority. 

e Simplify forms alignment. 

e Work while printer is down. 

¢ Copy reports to ASCII files. 

e Control from within a batch file. 

e Use any printer (including laser). 

e No program modifications re- 
quired. 












... AND MUCH MORE. 


YE 


Name 
Company 
Address 





[-] Check enclosed. L_] Visa 


Acct. No. 


Signature 


DD-11-86 





==>27=2 Software Directions, Inc. 1572 Sussex Turnpike, Randolph, NJ 07869 


Rush me PrintQ for just $89, which includes postage and handling (Canada — 
e add $10; Foreign — add $20). If I’m not convinced PrintQ saves time, increase- 
es productivity and enhances printer function, I’ll return it within 30 days for a full refund. 











City Sy os ee Ses 
[-] MasterCard 








IBM is a registered trade mark of International Business Machines Corpora ic 







Seeusat | 

CONDEH/Fall '86. 
November 10-14, 1986  . 
Bally’s Las Vegas 
Las Vegas, Nevada 


“Using PrintQ could become 
very addicting, and users may 
never want to go back to ordin- 
ary printing again.” 


—PC Week 


FULLY GUARANTEED 

Use PrintQ. If you’re not con- 
vinced PrintQ saves time, in- | 
creases productivity and en- _ 
hances printer function, return ~ 
it within 30 days for a full ree 


Order now and you'll receive 
the PrintQ disk, complete easy 

to understand documentation, 
and the Quick Start Card which _ 
will have you reaping the bene- 
fits of PrintQ in seconds. 


Call toll-free or mail 
the coupon to order now. 


1-800-346-7638 
In New Jersey Call 


201-584-8466 
Same day shipping 
on phone orders 

























©1985, 1986 Software Directions inc. 


Zip 
L] AmEx. 
Exp. date 


Phone # 





NJ residents add 6% sales tax. 


Listing Two (Listing continued, text begins on page 14.) 
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151 
L52 
153 
154 
L358 
156 
i137 
158 
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E42 
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182 j 
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Zen 
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Zoe 
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237 
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239 
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241 
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int 


} 


/* —_ 


return disj; /* They're equivalent */ 


a a a a a en x / 
subset ( a, b ) 
‘a, *b? 
/* Return 1 if A is a subset of B. Set A must be either smaller 
* than or the same size as B. 0 is returned if A is not a 
- subset or if A is larger than B. 
af 
register int + 
register char *ap, *bp; 
if( (i = a->nbytes) > b->nbytes ) 
return 0; 
ap = a->map; 
bp = b->map; 
for(; --i >= 0; aptt+, bpt+t ) 
if( (*ap & *bp) != *ap ) 
return 0; 
return 1; 
sc a a lt a es et ee SS me sss es mp lp mere onc nie toes ween spo es cid eds ea *x/ 


set _op( op, dest, setl, set2 ) 
Op; 
*setl, *set2, *dest; 


‘* Performs either the union or intersection of two sets 
. (depending on the value of "union"). Dest is the result. 
* The two source sets (setl and set2) must be different, 
* however either of the sources may be used as a destination 
* if you like. If the sets are different sizes, the smaller 
* set is made larger. Unused arguments should be set to NULL. 


¥/ 
register char *d; /* Pointer to destiniation map */ 
register char ‘*ml; /* Pointer to map in setl my 
register char ‘*m2; /* Pointer to map in set2 xf 
register int i: /* Number of bytes in map mF. 


i = dest->nbytes; 

if( setl ) 
i = max( i, setl->nbytes ); 

if( set2 ) 

i = max( i, set2->nbytes ); 


enlarge( i, setl ); /* Make all three sets the same size of 
enlarge( i, set2 ); /* if necessary. Enlarge() does nothing */ 
enlarge( i, dest ); /* if they're already the correct size. */ 


ad = dest->map; 
ml = setl->map; 
m2 = set2->map; 


while( --i >= 0 ) 
{ 
D({ printf ("set_op: working on bit $d\n", i); ) 


switch( op ) 
{ 


#ifdef DEBUG 


pset (“st z£;- sét::) 


char 
SET 
{ 


case UNION: *d++ = *mlt++ | *m2++ ; break; 
case INTERSECT: *d++ = *ml++ & *m24++ ; break; 
case DIFFERENCE: *d++ = *ml4++ * *m24++ ; break; 
case ASSIGN: *d++ = *ml++ ; break; 
case INVERT: *d++ = ~*m1l++ 7; break; 
case CLEAR: *d++ = 0O ; break; 
case FILL: *qd++ = ~0 s breaks 

} 

Se eee ee a a act Sa a a i ro ea pa ae Se ne ngs Engen, x/ 

TSE 

*set; 

int aly 

printf ("+ Fee go an Se AAS irc Snes es ne ey cls eisseeeenceenssns =, \n") ~ 


printf("| ¢s\n", str : 
printf("| Set at Ox%04x: $d bits, $d bytes, map (Ox%04x) ", 


Dr. 


(continued on page 64) 
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NOW AT THE SBC MART 


























COMPUTING SALE-A-THON 


HARD DISKS 





1.2MB Floppy on your PC or XT 


* Now you can have a 1.2MB-and-360K AT-compatible floppy disk drive on your IBM a complete 
(or compatible) PC or XT. Our 1.2MB controller replaces your floppy disk con- 20 MB kit 
troller. The controller is $149, a TEAC 1.2MB/360K disk drive is $135, the driver is ‘al 
$36. The controller combined with clock/calendar, serial and parallel ports, and S . es os 


able to control 3.5” and 8” floppy disk drives is only $189. eae aa 


© complete internal %-high 20MB kit, incl. 
controller and cables, special $479 
e complete 30 MB kit with %-high drive, 
uses new Adaptec 2070-A controller, 
$579 





SPECIAL BONUS Norton Utilities Ver 3.0 Reg $99 only $60 w/purchase of any 
disk drive. IBM PC-DOS 3.2 (the real thing) Reg $95 only $70, w/purchase of mother- 
board. 

















ADD-ON CARDS SBC PLEDGE 
; %* OMTI hard disk controller card (this card 
e multifunction card 384K, clk/cal w/battey, | * service after sale * technical support is super fast) Reg $220, Model HDC-1 
serial, parallel, and game ports, with OK | * low prices * one year warranty now $175, w/cables 


save $50 Model MFC-4 $89 


® monochrome graphics card runs 1-2-3 ae MOTHERBOARDS 
graphics, w/printer port, 720x348, MGC-1 a “pls: 


% Generalized hard-disk controller works 
with almost any drive. Just tell the con- 
troller your drive specs. Fast OMTI 5510-7 




































! — full IBM PC/XT 
now $99 (Hercules equiv.) Ane hard disk controller with cables and 
—sVOsl OMTIDISK utilities HDC-4 only $189 
e floppy controller for 1-4 48tpi or 96tpi —— 
drives, w/cable save 125 Model FDC-2 me tata 
now only $59 ee ®’“Assembling an IBM PC/XT Compatible 












Computer System” A novice can put an 
IBM PC compatible together with this new 
detailed manual. $19 


preter available 
— great foundation 
for business or 
pete a personal system 
* better than the Super 7: floppy disk | @agmmmeeeemes 2 | 1 year warranty 
controller, clk/calendar, serial, parallel & ee 
game ports, spooler & RAMDISK s/w Sale 
$99 ideal mate for 640K motherboards 


e color adapter w/light pen port, RGB and 
composite outputs Reg $140 Model CC-1 
now just $79 
























© Microsoft’s new QuickBASIC full MS 
BASIC compiler, Reg $99, only $89 











Model MB-2 640K Turbo motherboard 
4.77 & true 8MHz clock (switchable from 


keyboard or by software) with 256K RAM 














POWER SUPPLY 


apa 













e clock/calendar card Reg $58, CL-1 $49 Reg $349 now $239 — 135 Watts 
— side switch 
% 808K ON A SINGLE FLOPPY, TEAC 96tpi e Model MB-3 640K motherboard — top quality 







— one year warranty _ 
— standard cables for 4 disk drives 





80-track disk drive kit, complete, nothing 
else to buy now $169 


with OK Reg $199 now $159 
* TURBO Program see below, right. 


ABOUT OUR MOTHERBOARDS 


— the most IBM PC compatible ‘mother- 
boards available 


— each runs all commercially available 
software 

— each works with all commerciallly 
available add-on cards 














® Model PS-135 power supply Reg $129, 
now only $75 


TURBO PROG RAM 


* This program will set virtually all turbo 
motherboards to the turbo, or high-speed, 
mode. Can be called from the keyboard or 
from your AUTOTEXEC file only $19 






































— high quality IBM PC look alike 
w/sideswitch, flip-flop top or side chassis 


These FOUNDATION motherboards are 
the most compatible you can buy. All 
work with V20 chips, have parity checked 
memory, an 8087 socket, 8 adapter slots, 
four empty ROM sockets. Super manual 
includes complete data on how to put 
together a complete PC system. It even in- 
cludes schematics. 


BEST DOS MANUAL 


* Microsoft Press’ ““Running MS DOS”. For 
the less experienced and the most 
knowledgeable MS/PC DOS user. 423 
pages. We regularly get calls from our 
customers telling us how great this book 

is. $21.95 













— any-combo disk drive brackets 







— heavy steel 5- and 8-cutout style 












e Model CA-8 Reg $95, now $69 












Shipping and handling: drives/motherboards/cases/power supplies $4.50 ea., cards $2 ea., software $2.50 ea., keyboards/modems $4 ea., 
speedup kits $2 ea., memory $1/set, COMPUTERFACTS $3 first set then $1/set. CA residents add 6% sales tax. 





Visa/MC/AmEx ORDERS:(619) 375-5744 
The SBC MART, P.O. BOX 1296, Ridgecrest, CA 93555 





The SBC Mart is part of Computing Technology, 247 Balsam Street, Ridgecrest, CA 93555 
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Listing Two (Listing continued, text begins on page 14.) 


242 set, set->nbits, set->nbytes, set-—>map); 
243 

244 printf ("%s TRUE\n", set->compl ? "NEGATIVE" : "POSITIVE". ); 

245 printf("| map = "); 

246 

247 for( i = 0; i < set-—>nbytes; i++ } 

248 printf ("0x%02x,", (set-—>map) [i] ); 

249 

250 printf ("\n| bits= "); 

251 

252 for( i = 07; i < set->nbits; i++ ) 

253 OPiS cee ies Bel) 2" sa, 2 Eye 

254 

255 printf ("\n| td elements\n", num ele(set) }; 

256 

257 print f ("+-----------------------------------------—------------\n"); 
258 } 

259 

260 /* ---------------------------------------------------------- --------- */ 
261 

262 test stuff( a, b, d ) 

263 SET *a, *b, *d; 


264 { 

265 pset ("Set a", a); 

266 pset ("set b", b )? 

267 

268 union: (d,a,b); pset ("a union b", as 

269 intersection (d,a,b); pset ("a intersect b", GC: ¥3 

270 difference (d,a,b); pset ("a difference b", d); 

271 assign (d,a); pset ("d assign a", a5 

272 complement (da); pset ("complement a", as 

273 complement (d); 

274 invert (d,a); pset ("invert a", 3} 2 

275 

276 printf("a %s equivalent to b\n", equivalent(a,b) ? "IS" : “ISN'T" ); 
277 printf("a %s disjoint from b\n", disjoint (a,b) 2. aha) kOe ae ee 
278 printf("b %s a subset of a\n", subset (b, a) ee es Oe ee 
279 printf("a ts a subset of b\n", subset (a, b) woke: 2 MLOM a pe 
280 

281 printf ("----------—---------------—---—---------------------—-- =n") 7 
282 } 

283 

284 /* -------------------—-------- --- -- -- - -- + a/ 
285 

286 main() 

287 { 

288 SET *a, *b, *d; 

289 char buf[80], *p; 

290 int num; 

291 

292 a = newset(); pset( “initial a", a); 

293 b = newset ()}; pset( “initial b", b ); 

294 d = newset (}; pset({ “initial d", d); 

295 

296 add (0,a); 

297 add(1,a); 

298 add (3,a); 

299 add (0,b); 

300 add (3, b) ; 

301 

302 test_stuff( a, b, d ); 

303 

304 remove (0,a); remove(1,a); remove (3,a); remove(0,b); remove (3,b); 
305 add(0O, a}; add(2, a); add(2, b); add(3, b); 

306 

307 CGS. Sturt (a; 5,:a' ) 5 

308 

309 clear({ a); clear({ b ); test stuff( a, b, d ); 

310 clear (a) 7: 111d") 5: test stufi (a; b,. d-)¢ 

311 

ake. delset( b ); 

313 delset( d ); 

314 delset( a); 

315 a = newset (); 

316 

317 printf ("enter <bitnum<s|c>:"); 

318 

319 while( gets (buf) } 

320 { 

321 num = atoi (buf); 

322 for( p = buf; isdigit (*p) ; pt+ ) 

323 : 

324 

325 if({ *p = -'s') 

326 add({num ,a); 

327 else 

328 remove (num, a): 

329 

330 pset( "", a )> 

331 printf ("enter <bitnum><s]c>:"); 

332 } 

333. } 

334 

335 #endif End Listings 


64 
Dr. Dobb’s Journal, November 1986 


ts 





NEW GRAPHICS ISSUES _ 


Listing One (rext begins on page 30.) 


Draw a rectangle with an 8086 on CGA. loop EOLoop ; 
cmp SI, 2000H ; Finished! 
jo EOQDone ; 
mov Si, 2050H 
Draw a rectangle in the upper mov CX KKRKKK KKK KKK KKK KKEK EKER KKK KEK KEK KK KKK KEKE KEK 
left corner of a CGA display jmp EOLoop 
in high-resolution mode. The code} EOQDone label byte 


4s hardwired to a 10x10 rectangle. | ; 
; Rectangle is finished. 


. 
f 


Same rectangle drawn by 82786 


Set up segment and offset registers 
KEKKKKEKRKEKK KK KKK K KKK EK KKK KEK KK EKKEKEKKKEEKE 


to point to display memory. : Move to the upper left corner and 


; draw a 10x10 rectangle. 


“se Se Se Se Vs Me Be Be Se Ne 


mov AX, OB800H Same rectangle drawn by 34010 f 

ce ae ABS MOVE 0,0 
. P 3 RECT 10,10 
: Draw the top line by stuffing one byte ; Draw a line from 0,0 to 0,10. The start . NYS Fini chad 
: and the first two bits of the next byte. |; point is in register B2 and the end point] + : 
; : (delta X and delta Y) is in register B7. | ’ 

mov byte ptr [BX], OFFH : 

mov byte ptr [BX+1l], OCOH ; The >sign precedes a 32-bit hex constant. 
: ‘ End Listing 
: Draw the bottom line the same way. MOVI >0,B2 
: MOVI >00100000,B7 

MOV byte ptr [BX+800];, OFFH LINE 0 

mov byte ptr [BX+801], OCOH | ; 


; Repeat the process for the other sides. 


: Draw the first and last pixels on the MOVI >00100000,B2 

* next 4 even scan lines, then do the same MOVI >00000010,B7 

3 on the odd scan lines. LINE 0 

: MOVI >0,B2 
mov SI, 50H MOVI >00000010,B7 
mov Ch s LINE 0 

EOLoop: mov byte ptr [BX+SI], 80H MOVI >00000010, B2 
mov byte ptr [BX+SI+1], 40H MOVI >00100000,B7 
add SI, 80 LINE 0 











WINDOWS FOR DATA“ 
DATA ENTRY WINDOWS MENUS’ HELP 


UNPRECEDENTED FLEXIBILITY 


ae PY f- ‘ : 
eS - Ss sane 8 eS 
' Ss ee 4 x 
st * : . % ae Es 






Windows for Data does the hard jobs 
that others cant — we guarantee it. 
Makes standard display and entry tasks 
easy. Reliable. Compact. Portable. 


DATA ENTRY: The most complete and 
flexible data entry system on the market. 
Pop-up data-entry windows; field types for 
all C data types, plus decimals, dates, and 
times; auto conversion to and from strings 
for all field types; system and user-supplied 
validation functions; range-checking; 
scrollable context-sensitive help; required 
and must-fill fields; programmer-definable 
edit keys, field types, and field masks. Read 


UNIX, DOS, OR BOTH 


WEC and WED provide source code com- 
patibility between PCDOS and UNIX. 

















OUR CHALLENGE AND 
GUARANTEE 


If you have an application where no 
other tool can do the job, try Windows 


for Data. If it doesn't help you solve 
your problem, RETURN FOR A FULL 
REFUND. YOU MUST BE SATISFIED. 












WINDOWS WINDOWS 


field by field d all fields. Branch a eae 
sepels ameter sdugeliseheiv agers ringeoe: As many possibilities as Vermont in June. | PC DOS* $295 $195 
and nest window forms. Virtually every XENIX-286 $595 $395 
capability of WFD can be modified | MENUS: Build multi-level menus in the UNIX , CALL CALL 


to meet special needs. 


WINDOWS: WED is built upon and in- 
cludes Windows for C, the windowing 
system rated #1 in PC Tech Journal 
(William Hunt, July 1985). WFC now has 
more features than ever, including auto- 
matic full compatibility with Microsoft 
Windows and TopView. 
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format of Lotus 1-2-3, Macintosh, or a style 
of your own choosing. 


HELP: Build context-sensitive or menu- 
driven help systems. Display text in pop-up, 
scrollable windows. 


Circle no. 157 on reader service card. 


Call for FREE Demo diskette. 


*All popular C compilers; no royalties. 


21 Elm Ave. 

- Richford, VT 05476 
Creative 802-848-7738, 
Software ext. 31. 


MasterCard & Visa Accepted. Shipping $3.50 
VT residents add 4% tax. 


Vermont 


ARCA 
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Smallitalk/V transforms your PC 


Only Smalltalk/V lets 
you experience the thrill 
of a responsive AI work- 
station while learning 
artificial intelligence 
techniques and using 
them to create 
practical applications. 


‘“Smalltalk/V 
gives me the feel of an 
AI workstation on 
my PC.” 
—Darryl Rubin, 
Technical Editor, 
Al Expert 
Magazine 


Watching someone use an Al 

workstation is a vision of what the 

computer was meant to be. Fingers dance 
across the keys as windows dilate, shift, overlap, 
and disappear on the bit-mapped display. Ideas 
spring to life as program fragments execute, are 
modified, expanded, combined and tried again in 
a creative arabesque of text and graphics. The 
interface vanishes, man and machine are one. 
Smalltalk/V brings that experience to 

your IBM-PC. 


“We use Smalltalk 

as our primary language 

for teaching artificial intelligence.” 
—Dr. John Pugh 


Director, School of Computer Science 
Carleton University 


Of the three main AI languages, Smalltalk, LISP, 
and Prolog, only Smalltalk was intended for 
individual use on a personal computer. Only 
Smalltalk was designed to provide a match 
between human and computer models of 
reality. Only Smalltalk is easy to learn, easy to 
read, and easy to use. 


Explore Al on your PC 


into a versatile AI workstation 


‘We found Smalltalk/V excellent 
for developing advanced decision- 
support tools based on decision 
analysis and AI techniques.” 


—Dr. Samuel Holtzman, 
Professor, Stanford University 


Smalltalk/V is pure object-oriented programming 
— a powerful tool for designing frame/script- 
based knowlege representations, inference 
engines, expert systems, simulation environments, 
intelligent interfaces, network control software. 
communications interfaces, and much more. 





Methods, our character-based Smalltalk, is now 
available for $79. It has all of the features of 
Smalltalk/V except graphics, rules, source-level 
debugger, and object-swapping. However, it 
supports color, includes the communication 
package, and does not require a mouse. 


BYTE and BIX are trademarks of McGraw-Hill, Inc. IBM, IBM-PC. and 
IBM PC-AT are trademarks of International Business Machines 
Corporation. Unix is a trademark of Bell Laboratories. 


YES! | want to turn my PC into an AI workstation. Send me... 


FL SmallellelY. «209.52; bayien $99 
[ ] Communications for Smalltalk/V . . .$49 


Eq Methods (including 


Communications) ......... $79 
Shipping and Handling. ......... § 
CA residents add applicable 
eR: Gt ieee St ee § 
Spee Sis pc be tee ine hoe $ 
Shipping and Handling 
U-S.; Canada, and Mexico 225s jecn 0 0. De $ 5.00 
Hisewhere ... 2... 20.003. 4 $15.00 
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I enclose [{_] Check [7] Money Order 








[_] Credit card information [9 mc [] VISA 
Number: Expiration__ 
Signature 

Name: 





Street PN oie tt he ees Serr Serer yey tpi 
WRN ees eet ee gt eet cle ee ae) 
Phone: 
ee 
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‘“Smalltalk/V is the 
highest performance 
object-oriented 
programming system 
available for PCs.” 
—Dr. Piero Scaruffi 

Chief Scientist 

Olivetti Artificial Intelligence Center 


Smalltalk/V Features 


© High-performance 

object-oriented programming 

@ Integrates object-based and rule-based 
programming with object-oriented Prolog 

@ A user-extensible, open-ended environment 

@ A responsive graphical user interface 

© Supports exploratory programming and 
prototyping 

@ (lass hierarchy with inheritance creates highly 
re-useable code 

@ Smalltalk source code included, with browser 
windows for easy access and modification 

© A huge toolkit of classes and objects for 
building a variety of applications 

© Object-swapping creates virtual memory on 
hard or RAM disk 

@ Bit-mapped graphics with bit and form editors 

© A sophisticated source-level debugger 

© Automatic change log for easy recovery 
from errors 

© Powerful directory/file browser system for 
organizing DOS files 

© Optional communications interface to 
Unix™ and other systems 

® Access to other languages and DOS functions 

@ DOS command shell 

© Detailed owner's manual designed for both 
beginners and advanced programmers 


a ee ee ee ee ee ee 
NOT COPY PROTECTED, 60-DAY MONEY-BACK GUARANTEE 
ON-LINE USER-SUPPORT CONFERENCE ON BYTE’S BIX™ 


Smalltalk/V requires DOS and 512K RAM on IBM PCs (including AT) or 
“compatibles,” a Microsoft or compatible mouse, and a CGA, EGA, Hercules, 
or AT&T Hi-Res graphic controller. 





5200 West Century Boulevard 
Los Angeles, CA 90045 


(213) 645-1082 


TurboHALO’ 





Finally, powerful graphics 
for Turbo Pascal! 
Announcing: 


TurboHALO GRAPHICS! 


¢ 150 graphic primitives (based upon the powerful 
HALO primitives). 


- Graphics in up to 16 colors, in medium or high 
resolution, on 10 popular graphics cards—including 
IBM CGA and EGA, Hercules, and AT&T DEB. 


- Output to over 20 printers and plotters—including 
HP and Corona Laser and Apple Imagewrriter. 


¢ 11 popular input devices supported. 


* Memory resident drivers require only 2K of Turbo Pascal 
code space. 


- These professional graphics programs use 
HALO Primitives: 


Drafix ll—Foresight Resources 
CADKEY=Micro Control Systems, Inc. 
Dr. Halo Il—Media Cybernetics/IMSI 
CAD Master—Datagraphics 
Decision Master—Cenitec 
Artworks—West End Films 


- Speed, ease of use, multiple fonts and much more, 
for ONLY $99.00! NO ROYALTY FEES! 


To order TurboHALO™ 
Call (800) 222-GRAF, (800) 562-GRAF (in CA) or (415) 454-7101 
Or send payment to: 
IMSI 
1299 Fourth Street - San Rafael, CA 94901 
VISA, MC, Check or Money Orders accepted. 





Circle no. 293 on reader service card. 


ee cu 


PC Network: the world’s #1 supplier o 





Arity Corporation 








Expert System Development Package $235.00* 
File Interchange Toolkit 37.00* 
Prolog Compiler and Interpreter 650.00* 
Prolog Interpreter 275.00* 
SQL Development Package 235.00* 
Screen Design Toolkit 37.00* 
Standard Prolog 70.00* 
Arity Combo Package 950.00* 


PC NETWORK MEMBERSHIP APPLICATION 


YES! Please enroll me as a member in the PC NETWORK™ 
and send my catalog featuring thousands of computer products, 
all at just 8% above DEALER WHOLESALE PRICES. I will also 
receive “THE PRINTOUT”, a special update on 

merchandise at prices BELOW even those in my wholesale catalog 
and all the other exclusive, money-saving services available 

to Members. I am under no obligation to buy anything. My 
complete satisfaction is guaranteed. 


Please (™) all boxes that apply: 
1 Year 2 Year 
@Basic Membership $8) $15 © 
With 14 Days Rental 
Business Software Rental Library $25 (add'l. per year 
Games Software RentalLibrary $10 [) add'l. per year 


1 Year 2 Year 
@Special V.I.P Membership $15... $28°0 
With 30 Days Rental 
BOTH Business and Game 


Software Rental Libraries 





$30 [J] add'l. per year 


| JBill My Credit Card: (JVISA (JMasterCard (American Express 


Nember, CII IOOOOOOooooooo 

















Exp. Date 
mon. yt. 
| |Check or Money Order Enclosed for $ 
Name 
Address Apt Me. i 
City State Zip 











Telephone ( Dee ines ee pea ma ead gE ES 
My Computer(s) is: JIBM PC [IBM XT [IBM AT 


LJApple II [JMacintosh Other 
Signature 


(Signature required to validate membership) 


Copyright© 1986, PC NETWORK. INC. 
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Blaise Computing Inc. 








Asynch Manager for C $115.00* 
Asynch manager for Pascal 115.00* 
C Tools/Tools 2 Combo Pack 115.00* 
C Tools 85.00* 
C Tools 65.00* 
C Tools Plus 115.00* 
Exec 65.00* 
Pascal Tools/Tools 2 Combo 115.00* 
Pascal Tools 85.00* 
Pascal Tools 2 65.00* 
Runoff 35.00* 
Turbo Asynch Plus 65.00* 
Turbo Power Tools Plus 65.00* 
View Manager w/Source for C 185.00* 
View Manager w/Source for Pascal 185.00* 








Borland International 




















Reflex $54.00* 
Reflex and Workshop Bundle 99.95* 
Reflex Workshop 35.25* 
Turbo Database Toolbox 34.00* 
Turbo Editor Toolbox 35.00* 
Turbo Gameworks Toolbox 35.00* 
Turbo Graphix Toolbox 32.97* 
Turbo Lightning 48.50* 
Turbo Pascal w/8087 and BCD Support 50.00* 
Turbo Tutor 19.50* 
Word Wizard 37.40" 
Word Wizard and Turbo Lightning Bundle 79.50* 
a 
Lattice 
C-Compiler 3.1 $250.00* 
C-Sprite Debugger 115.00* 
C-Food Smorgasbord 82.00* 
Sidetalk 79.00* 
DBC-III Library 137.00* 
RPG-II Compiler 410.00* 








LogiTech 








LogiMouse $75.00* 
LogiMouse + 89.00* 
LogiMouse + w/PC Paint 117.00* 
LogiMouse + w/Generic CAD 139.00* 
LogiMouse + w/Reflex 145.00* 


CALL TOLL FREE 
-800-621-SAVE 


(Orders —Membership and Advice!) 
In Illinois call (312) 280-0002 

Your Membership Validation Number DD21 
You can validate your membership number and, if you wish, 
place your first money-saving order over the phone by ibis ate: 
your VISA, MASTERCARD or AMERICAN EXPRESS. Our 
knowledgeable sales consultants are on duty Mon.-Fri. 8:00 
AM to 7:00 PM, Sat. 9:00 AM to 5:00 PM CST. 


\ PERSONAL COMPUTER NETWORK 
320 West Ohio Street 


OF Cor T-Zo mee Sle sstes ewe ol 8) PEt 


Call now...Join the PC NETWORK and start Saving today! 
OE Cereal tagtd ert ere Status (312) 280-1567 
8:30 AM to 4:30 PM, Mon.-Fri. csr 


everything for the program developer. 


LogiMouse + w/Generic CAD and PC Paint 158.00* 
Modula-2/86 Compiler 55.00* 
Modula-2/86 Compiler w/8087 85.00* 
Modula-2/86 Compiler w/512K 142.00* 
Modula-2 Runtime Debugger 41.00* 
Modula-2 Source Package 79.00* 
Modula-2 Translator 35.00* 
Modula-2 Utilities Package 35.00* 
Modula-2 Window 35.00* 








Micro Focus 












































Cobol Workbench $ 32.00* 
Level II Cobol 1,100.00* 
CoGraphics 199.00* 
CoMath 150.00* 
Forms-2 245.00* 
Level II Animator 675.00* 
Level II Source Writer 1,499.00* 
Micro/SPF 140.00* 
Professional Cobol 2,200.00* 
Multiuser Runtime for PC Net 400.00* 
RM/Cobol Network Full System Ver.2.1 799.00* 
RM/Cobol Network Runtime Ver.2.1 339.00* 
Soficraft 
Btrieve $175.00* 
Xtrieve 130.00* 
Rtrieve 109.00* 
x Rtrieve, Network Version 249.00* 
M: icrosoft Xtrieve, Network Version 419.00* 
Btrieve, Network Version 419.00* 
Cobol Tools $199.00* 
Basic Interpreter for Xenix 190.00* Sum m it Softwa re 
Quick Basic 57.00* 
Basic Compiler * 
C Cupatiax de Better Basic $119.40* 
Cobol Compiler 420.00* 8087 Math Module 59.00* 
Fortran Compiler Xenix 313.00* Runtime System 150.00* 
Fortran Compiler PC 184.00* 
MULISP 180.00* 
Macro Assembler 4.0 84.70* 
MUMATH/MUSIMP 180.00* 
Pascal Compiler for Xenix 297.00* 
Pascal Compiler for PC 162.00* 
Sort Facility 117.00* 
Windows 51.00* 
Windows Development 290.00* 








Phoenix Software 


























Pfantsy Pac $800.00* 

Pfinish 210.00* 

Pfix 86 Plus 210.00* 

Pforce 210.00* 

Plink-86 Plus 299.00* 

Pmate 199.00* 

Pre-C 160.00* 

Ptel 119.00* 

Ryan McFarland 

Fortran 77 Compiler $327.00* 

RM/Cobol Full Development 570.00* 

RM/Cobol Runtime 150.00* 1 OO faa 
RM/Cobol 8X Full System 799.00* 

RM/Cobol 8X Runtime 189.00* | 


IN ILLINOIS 312 280-0002 sie 


Circle no. 200 on reader service card. 





ays 


oe Rog 


Best-price Unix 
applications software. 
Fromthe company 
thatmadeareality 
of best-price 
UNIX operating 
systems. 


Business computing, word processing, 
database management, text prepara- 
tion and software develooment—we've 
selected, developed and added value 
to the best Once you've converted 
your PC/AT, with our System V into a 
true multi-user, multi-tasking machine, 
you'll demand software that lets you 
get on with the tasks at hand. 


CRYSTALWRITER PLUS 


is a comprehensive word-processing system 
for the multi-user office. It allows concurrent 
use of files, layouts and printers, as well as 
supporting a full range of terminals. 


INFORMIX SQL 


is the relational-database-management sys- 
tem developers will choose for custom appli- 
cations. It offers relational-database flexibility, 
interactive-database queries, a flexible de- 
sign environment, automated functional 
menus, Custom screen design and total 
format control. 


UNIX and DWB are trademarks of AT&T 
IBM and IBM PC-AT are trademarks of IBM CORPORATION. 
SYSTEM V/AT is a trademark of MICROPORT SYSTEMS, INC. 


R-OFFICE 


ties a powerful word processor together with 
the file-management, table-spreadsheet, 
report-generation and desktop-management 
chores common to nearly every modern 
office. 


R/M COBOL 


is Ryan-McFarland’s GSA certified imple- 
mentation of the ANSI X3.23 74 standard. 
R/M COBOL is designed for serious busi- 
ness computing. 


LEX 


is a standalone system offering complete 
word processing capabilities, as well as utili- 
ties for adapting LEX to any type of video 
terminal or printer. 


SOFTWARE DEVELOPMENT 


from Microport. Our package was derived 
from the extensively-tested Portable C com- 
piler. (The large-model code produced by 
the compiler is among the densest and fast- 
est available) These are true 286 compilers, 
making full and efficient use of the extended 
286 instruction set. The package also in- 
cludes the F77 Fortran compiler. 


TEXT PREPARATION 


from Microport. This package consists 

of the complete System V, Release 2 
Documenter’s Workbench (DWB), and in- 
cludes both the new troff and the old troff. 
Drivers for the HP Laser Jet Printer and 
Apple's LaserWriter are also available. 


These are but a few of our available 
packages. Virtually everything listed in AT&I’s 
catalog can now, or will soon run with our 
operating system. 
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Regarding 
OurSYSTEMV 
operating system. 


More than a look-alike, Microport's System V 
complies with AT&I’s new binary standard 
and was derived from AT&l’s own UNIX Sys- 
tem V,. Release 2 iAPX286. It thereby contains 
standard System V features the competitors 
dont support, such as the powerful symbolic 
debugger (SDB), the shell-layering job-con- 
trol facility and the F77 Fortran compiler, as 
well as programming tools such as ctrace, 
cflow and bs. Over 200 utilities come stan- 
dard to let you search and modify files, make 
use of electronic mail, calculate electronically, 
convert data and publish. 


¢ 24 hour sale and support 

¢ 90 day money-back guarantee 

¢ Educational site licensing 

¢ Commitment to AT&T souce and binary 
standards 


To order: Call either of our numbers below 
for today’s price and product line quote (be 
sure to ask about our buy-two-applications- 
packages-and-get-RUNTIME-free offer). 

You really wouldnt want to pay thou- 
sands of dollars more, would you? 





LE 
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MICROPORT SYSTEMS, INC. 
4200 Scotts Valley Drive 

Scotts Valley, CA 95066 
408/438-UNIX (CA) or 800/PC2-UNIX 
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customer 








“Excellent 


“| have been buying software 
from about six mail order houses 
in the U.S. and your response 
time has been the best that | have 
encountered.” 


Bt med EDA 
Kowloon, Hong Kong 
pew oe ee 
“In any company, it is a great 
rarity to find courteous and timely 
service, product knowledge ob- 
Jectively offered, more than rea- 
sonable prices, and a willingness 
to pursue the latest new market 
; offerings. My experience strongly 
se indicates Programmers Connec- 
tion considers this their.minimum 
acceptable standard in meeting 
customer needs.” 


eT ALC 
Car Programs Management 
Ford Motor Company 


‘I’m overwhelmed by how you 
bend over backwards to get things 


Karen Stevens 
Mindscape Software Inc. 
San Jose, California 


re 

“lam delighted!...your service is 
excellent. This is my first dealing 
with Programmer's Connection, 
but not the last, |! am sure” 


Ah C7 


Ken Travers 
KenT Computer Services | 
Hornsby Heights, Australia 


Ly alace 


yest Als 


selection. © 


QUALITY 


Quality products and quality people. 
That's what Programmer's Connection is 
all about. 

We carry the finest selection of 
the best programmer's development tools 
specifically for IBM Personal Computers and 
compatibles. They are the latest versions and 
most come with 30-day return guarantees or 
evaluation periods. 

We firmly believe that high quality 
must be present throughout every aspect of 
our service. And to make sure that we main- 
tain such high standards, we include a service 
questionnaire with every purchase. We're very 
interested in what our customers have to say. 


SUPPORT 


Our courteous, knowledgeable, non- 
commissioned salespeople are always ready 
to assist you. We also have experienced tech- 
nical consultants on staff who can answer 
questions about products and provide sound, 
unbiased advice. 

We'll support you before and after you 
make your purchase. Your satisfaction is very 
important to us. 


PRICE 
Our buying power enables us to offer 
you the lowest prices without sacrificing service. 
UPS Ground shipping is FREE to all 
U.S. customers. There are no extra charges for 
credit cards, CODs, purchase orders or special 
handling (except for export preparation). 
Quite simply, the prices on the next 
two pages are all you pay. 


INTEGRITY 

When we started Programmer's Con- 
nection in 1984, we dedicated ourselves to 
providing high quality personal service to 
every customer. Since then, we've quickly 
grown to be the leading independent dealer in 
this industry. 

We're very proud of the trust weve 
earned from our customers and we pledge 
always to be worthy of It. 


ide 
It's our commitment to quality, support, low 
prices and integrity that sets us apart. So make 
the connection today and find out for yourself 
what our customers are talking about. 


Reported by Mark Ackerman SSS 


For the Boston Computer 
Society PC Report. 





Turn the page for our product listing and ordering information. 
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apl language 
APE*PLUS/ PUD sie g New Version 
APL*PLUS/PC Spreadsheet Mgr ty S7SC..... 
APL*PLUS/PC Tools Vol 1 sy S7SC 
APL*PLUS/PC Tools Vol 2 ty S7TSC ......... 
APL*PLUS/UNX For AT XEWIX by STSC .... 2... 
Btrieve /SAM File Mor by SoftCraft............. 
Financial/ Statistical Library by STSC......... 
SP OMNE ME MING OU ow cys picead 
STATGRAPHICS by STSC wo... ee, 


arity products 
Arity Combination Package ........... 


Arity PROLOG Compiler & Interpreter 
Arity Expert System Development Pkg 
Arity File Interchange Toolkit............ 
Arity Screen Design Toolkit............. 
Arity SQL Development Package 
Arity PROLOG Interpreter 
Arity Standard Prolog 


eee eee eee 


eee eee eee 


BO SO) OC OH8®, 06 +O 9 AW ae 28 


LIST 


595 


artificial intelligence si 


APES by Prog- logic S9eci. ovo bse ov hin ka oe ewe 
APT from Solution Systems ............4.. 
Autolntelligence Sy /ntelligenceWare....... 
ESP ADVISOR by Expert Systems Intl ....... New 
PROLOG-2 Interface 
ExpertEDGE Advanced ty Human Fdge .... 
ExpertEDGE Professional sy Human Fdge . . 
Experteach Il by /ntelligenceWare............. 
EXSYS Development Software by EXSYS 
First Class by Human Edge 
GCLISP Golden Common LISP by Gold Hill... 2... 
GCLISP 286 Developer sy Gold Hil/ 
Insight 1 by Level Five Research .............4. 
Insight 2+ by Level Five Research ............. 
Intelligence / Compiler /nte/ligenceWare 
Logic-Line Series 1 sy Thunderstone 
Logic-Line Series 2 by Thunderstone 
Logic-Line Series 3 by Thunderstone 
LPA microPROLOG by Prog Logic Sys ......... 
WHE NUMER Sas 5 0 ee ee ss oak ks 
LPA Professional microPROLOG 
WO PE at Sia ee ee oaks ese 
Microsoft LISP Common LISP ............... 
PC Scheme by 7exas /nstruments 
Personal Consultant Easy dy 7/ 
Personal Consultant Plus dy 7/ 
Personal Consultant Runtime 
PROLOG-2 Interpreter by fS/ .......... 
PROLOG-2 Interpreter and Compiler ... . 
QNIAL by WAL Systems. ... 0.0... ee cee eee 
TransLISP from Solution Systems ......... 
Turbo PROLOG Compiler by Borland Inti ....... 


assembly language 
386 ASM/LINK Cross Asm by Pharlap...... New 
8088 Assembler ty 2500AD ............... 
ASMLIB Function Library by BC Assoc........... 
asmTREE 8-7ree Dev System by BC Assoc... . 
Cross Assemblers Various 2500AD ........... 
Microsoft Macro Assembler............... 
Turbo EDITASM — by Speedware.......... 
Visible Computer: 8088 Software Masters 
basic language 
BetterBASIC by Summit Software. ............ 
8087 Math Support 
Btrieve Interface 
C Interface 


$26) SF 62-0262. C8 6. 60. Ore 


eee ee wwe 
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eceeeee ee eee eee eee eee eeeee 


Professional BASIC ty Morgan.............. 
GO87 Math Support’. oa Fy roe 
True Basic with BASICA Converter......... 


Advanced String Library............. New 
Asynch Communication Support 
BASICA Converter 
Btrieve Interface 


oe eee ee eee 
£0 SO 'Ou eel 6 oe 6 0 6 6:50. Rie Di eTe & 
Sc FpO (ONG OC We 0. &,.6 Oe, 6 Ce oS 
8-00. 8.9 6 6 0, 0 9. Rieke S608: eee 


Formlib 


SAS SCO OO, Be, BS SOLS Oe Sew) Bee meee 


Hercules Graphic Support .......... New 
Run-time Module ..................... 
Sorting & Searching ............... New 


65 
990 
895 
395 

2500 
5000 
475 
395 
495 
495 
1190 

95 
485 
990 

90 
125 
150 
250 
450 
395 
695 
250 

95 
495 

2950 
CALL 
450 
895 
375 

95 

100 
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449 
139 


59 
695 
194 
195 

69 
599 


1139 
699 
259 

45 
45 
259 
309 
85 


339 
CALL 
CALL 

839 

369 
CALL 
CALL 

379 

319 

399 
CALL 
CALL 

75 

379 

749 


115 
139 
219 
399 
339 
599 
175 


439 
2599 
CALL 

419 

839 


blaise products 
ASYNCH MANAGER Specify C or Pascal ....... 
Se PE Gs ba ee eee a es 


DLO Pie 16.6 6:6 § Se O'S 6) 9 Oh 6. a he Ole e 


EXEC Program Chainer 
PASCAL TOOLS 


oer e ee ee eee eee eee re we eee 


PASCAL TOOLS & PASCAL TOOLS 2 
RUNOFF Jext Formatter 


eeee ee eer eee eee eeenee 


borland products 

REFLEX Data Base System... 6. os ok soos 
REFLEX Waren Sie, 
REFLEX & REFLEX Workshop 
Turbo DATABASE TOOLBOX.............. 
Turbo EDITOR TOOLBOX ................ 
Turbo GAMEWORKS TOOLBOX 
Turbo GRAPHIX TOOLBOX 
Varbe: CIGHTINNG 63. eS 
Turbo PASCAL with 8087 and BCD 
Turbo Prolog Compiler................... 
Turbo TUTOR for Turbo PASCAL ............. 
WOGEE WER re oe es 


oe ee eee eee eee 


ee ewe we we eee 


c++ 
C++ from Guidelines... 6... ccc cece eee 


c compilers 
C-86 by Computer Innovations ................ 
Datalight C Compiler Sma// Mode/............ 
Datalight Developer Kit w/large Mode/........ 
DeSmet C w/Debugger............0.. eae 
DeSmet C w/Debugger & large Case........... 
Eco-C Development System by Ecosoft 
Lattice C Compiler from Lattice.............. 
Mark Williams Let's C 

with csd Source Debugger............0000. 
Mark Williams MWC-86 
Microsoft C with CodeView ................. 
Wizard C Combo by Wizard Systems... .... 

Wizard C Compiler.................... 

ROM Development Pkg 


c interpreters 

C-terp by Gimpel. Specify compiler............. 
C Trainer by Catalytix... 2.0.0.0... 000 New 
Instant C by Rational Systems. ............... 
Introducing C by Computer Innovations.......... 
san / OC Yeon Lifebeat 6 eos Se ee wid é 


c utilities 
APT by Shaw American Technology............. 
Basic C Library ty C Source 
C Essentials by Essential Software 


see ee ewe eee eee eee 


C-ISAM by Relational Database Sys........ New 
C to dBase by Computer Innovations ........... 
c-tree /SAM File Manager by FairCom ........... 

r-tree Report Generator ............... New 


C Utility Library Fssentia/.......... New Version 
C Windows dy Syscom 
GC Wiis Dy Sopris 5 ss 5 3 5 
Cl Probe sy Computer Innovations ............. 
Cl ROMPac dy Computer Innovations........... 
dbQUERY by Raima 
dbVISTA Single-User DBMS by Raima. .......... 
WHE SOME LOO a i ORS ES ie 
dbVISTA Multi-User DBMS by Raima 
WIN SUNCO CORRS Ee ees oo 4.8 Cee beak 
dBx dBase/C Translator by Desktop Al ........... 
Entelekon Combo Package................ 
CG PaneOen Ore. Se tes. 
MUO NS ico chs eos es 9 Sew R ER oe 
Superiens WEG 36 LS: 
Essential Graphics Sy Essential Software........ 
Flash-up Windows dy Software Bottling 
GraphiC Mono v2.2 by Sci Endeavors 
GraphiC Color v3.0 by Sci Endeavors 
GRAFLIB dy The Librarian 
Greenleaf Comm Library by Greenleaf ......... 
Greenleaf Data Windows by Greenleaf 
with Source Code 
Greenleaf Functions by Greenleaf ............ 
The HAMMER by OES Systems 
HALO by Media Cybernetics ................. 
HELP/Control by MOS........:........ New 
MetaWINDOWS Wo Aoyalties............... 
ripen eects, ES ERE i, ea am 
MetaWINDOWS/Plus ty Metagraphics 
MetaFOMTS/Pieg 3.5 2 i Sosecnckld. 
On-line Help from Opt-Tech Data Proc 
PANEL dy Roundhill Computer Systems 
PC Lint by Gimpe/ Software 
PLOTHI dy The Librarian 
PLOTHP by The Librarian................ New 
Sci Subroutine Library ty Peerless 
Vitamin C dy Creative Programming 
VC Screen Forms Designer................ 
Zview by Data Management Consultants 


cee ee ee eee eee ee ee eee 
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250 


175 
150 
100 
245 


299 


CALL 
195 
135 
329 

CALL 
135 


149 
209 
109 
115 
CALL 
189 
CALL 
109 
224 
105 
CALL 
CALL 
139 
135 
84 
189 


cobol language 


Micro Focus COBOL Workbench ........... 4000 
Micro Focus Level I} COBOL .............. 1500 
RPMI INDIE con S's es op ee ee ee 250 
CAE Sah fico eso ee eee hae 200 
PE aie ec rao iene bess 300 
LUUG) 3) Rien 2 5 Se es 900 
Level Ii SOURCEWRITER .............. 2000 
Micro Focus Level Il COBOL for Wovel/ ....... 2000 
Micro Focus Micro/SPF ................. 175 
Micro Focus Professional COBOL .......... 3000 
Multi-user Runtime for PC Network ......... 500 
Crean GRE hn ee ee ee 700 
Microsoft COBOL Tools w/Debugger ......... 350 
Heatie COBOL ora ea s.. New Version 995 
RM/COBOL by Ayan-McFarland .............. 950 
RM/COBOL 8X AWS/ 85 by Ryan-McFarland ..... 1250 


debuggers & profilers 


386 DEBUG Cross Debugger by Pharlap .... New 175 
Advanced Trace-86 by Morgan Computing....... 175 
Cl Probe by Computer Innovations ............. 225 
Codesifter Profiler by David Smith ............. 119 
Codesmith-86 dy Visua/Age ................ 145 
DSD86 by Soft Advances...........0006. New 10 
DSD87 by Soft Advances................ New 100 
Periscope | by Data Base Decisions............ 295 
Periscope Il w/NM/ Breakout Switch ........... 145 
Periscope Il-X Software only................ 115 
The PROFILER with Source Code by DWB ....... 12 
The WATCHER Profiler by Stony Brook ..... New 60 
forth language 
CFORTH Wative Code Compiler by LMI .......... 300 
Forth/83 Metacompiler Specify Target ........ 750 
PC/Forth by Laboratory Microsystems .......... 150 
PC/Forth+ by Laboratory Microsystems ......... 250 
Advanced Color Graphics Support......... 100 
Enhanced Graphics Support ............. 200 
Intel 8087 Support ................... 100 
Interactive Symbolic Debugger ........... 100 
Native Code Optimizer ................. 200 
PCTERM Modem Pam for Smartmodem ....... 100 
Software Floating Point ................ 100 
fortran language 
50 MORE: FORTRAN by Peerless Engr ........ 125 
ACS Time Series by Alpha Computer .......... 495 
Btrieve /SAM File Mgr by SoftCraft............. 250 
For-Winds by Alpha Computer Service .......... 90 
Forlib-Plus by A/pha Computer Service .......... 70 
FORTLIB by The Librarian .............-. New 95 
FORTRAN Addenda dy /mpulse Engr ... 22.2... 95 
FORTRAN Addendum by /mpulse Engr ......... 165 
GRAFLIB dy The Librarian .............. New 175 
HALO by Media Cybernetics ............0005. 300 
1/0 PRO with NO LIMIT Library by MEF... .. . New 390 
Microcompatibles Combo Package.......... 240 
GUNTINNUN Ss es 2g ers oe ei dee 135 
PUN cw ee 135 
Microsoft FORTRAN .................... 350 
NO LIMIT dy MEF Environmental. ......... New 129 
PANEL Screen Designer by Roundhill ........... 295 
PLOTHI by The Librarian ................ New 175 
PLOTHP by The Librarian. ............4. New 175 
RM/FORTRAN by Ayan-McFarland............ 595 
Sci Subroutine Library Sy Peerless ........... 175 
Sci Subroutine Package by Ajpha............ 295 
Strings & Things by Alpha Computer........... 70 
gss products 
GSS Graphics Development Toolkit ...... New 495 
GSS Kernel System for 00S ............ New 495 
GSS Kernel System for /BMAT........... New 795 
GSS Metafile Interpreter.............. New 295 
GSS Plotting System ................. New 495 
GSS SOLUTIONS Chart............... New 295 
GSS SOLUTIONS Plottakk............. New 295 
GSS SOLUTIONS Terminal ............ New 295 
lattice products 
Lattice C Compiler from Lattice.............. 500 
with Library Source Code ..............00. 900 
C Cross Reference Generator.............. 50 
winigh nd. FORE ONE Se PE we 200 
C-Food Smorgasbord Function Library ......... 150 
Mt SOUS ood. epee o woe eee on 300 
C-Sprite Source Level Debugger .............. 175 
Curses Screen Manager..............2204.. 125 
ERODE oe no eee beck 250 
dBC dBase File Manager forC ................ 250 
UN SAIL aoe ss vas 2 So 500 
LMIK Make Facility 2... 2... oo oc co 195 
RPG Il Compiler Wo Royalties ............... 750 
SecretDisk File Encryption Utility ............. 120 
SideTalk Resident Communications ............ 120 
Text Management Utilities................ 120 
TopView Toolbasket Function L005: 250 
with Source Code =... 0. ..6.0cecueccccn. 500 
Z-80 C Cross Compiler .................. 500 
with Library Source Code .................. 1000 


3379 
549 
199 
159 
259 
349 

CALL 

1699 


2295 


895 


CALL 
CALL 
649 
239 
CALL 
239 
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logitech products 
LOGIMOUSE C7 Mouse Hardware ............ 


PM ce aa es pee ee oe peewee ee 
with PLUS Pkg & PC Paintbrush ........000005 
with PLUS Pkg & CAD Software ........... New 
with PLUS Pkg & CAD & Paint........+-++. New 


MODULA-2/86 Compiler................. 
MODULA-2/86 with 8087 Support ......... 
MAE OO PLUS. soko b eee l eines 
GAUEEY SUNIOUE Gok cee b ctw map bee eed 
SS 565 sw Qc ee 
RT POONER 5... bch he ncs,-e bees New 
Run Time Debugger................... 
Turbo to Modula Translator ............. 
| ee ee re eee 
WHINGOW POCKAUG.... cece ee eteee 
REPERTOIRE for MODULA-2/86 by PM/_.... New 
microport products 
System V/AT hy Microport Systems New 
RUNTIME SYSTEM (Operating Sys)...... New 
SOFTWARE DEVELOPMENT SYSTEM Wew 
TEXT PREPARATION SYSTEM 
USER UPGRADE 3 to 8 Users......... New 
microsoft products 
Microsoft BASIC Interpreter for XFW/X........ 
Microsoft C ivith CodeView ............2008- 
Microsoft COBOL Compiler ............... 
CIs o cae) ae each asd Vikan an bon es 
Microsoft COBOL Tools with Debugger ........ 
PN sas) Lip Saco ain wake ce whe 6 %, cle xe S fe8, 2 
Microsoft FORTRAN Compiler ............. 
TAME, Enh nite RONEN 6 Bee a ek es 


Microsoft Learning DOS 
Microsoft LISP Common LISP ...........04-- 
Microsoft MACH 10 Bundled package 
Microsoft MACH 10 Board ............. New 
Microsoft Micro Assembler............... 
Microsoft Mouse Bus Version ....... New Version 
Microsoft Mouse Seria/ Version. ..... New Version 
Microsoft mu Math /nc/udes muS/MP 
Microsoft Pescal Compiler................ 

TOTEREAIA ST) chet < tee arate Bie) 7a: oI w eles Sos 
Microsoft QuickBASIC................... 
ereeN SOIT. cas eae he ees oe 
Microsoft Windows ..................... 
Microsoft Windows Development Kit ........ 


other languages 


CCS MUMPS Single-User by MGlobal .......... 
CCS MUMPS Multi-User by MGlobal........... 
Janus/ADA C Pack by R&A Software.......... 
Janus/ADA D Pack by R&A Software 
Methods Smalltalk by Digitalk.. 2... 66. ee eee 
Personal REXX by Mansfield Software.......... 
Smalltalk/V by Digitalk 

Simantnik/COmM cc... eee cee 
SRUUULSY by Compan o.oo coi oc ewe Oa wed 


other products 
Dan Bricklin’s Demo Pgm Software Garden ..... 
FASTBACK by 5th Generation Systems 
Informix for DOS by RDS ... 1... ee ee eee 
Informix4GL for DOS by RDS .........455- New 
InformixSQL for DOS by RDS .........045- New 
Inside Track from Micro Help. ........4+- 
Instant Replay by Vostradamus 
Interactive EASYFLOW by Haventree 
MACH 2 by Micro Help ........- 0.00 eee New 
MKS Toolkit with vi by MKS ........0005- New 
OPT-Tech Sort by Opt-Tech Data Proc.......... 
Peeks ‘n Pokes from Micro Help 
PrintO by Software Directions .......+++--- New 
Quilt Computing Combo Package ........... 
QMake Program Rebuild Utility .........+4+- 
SRMS Software Revision Mgmt Sys 
screenplay a// varieties by Flexus 
Source Print by A/debaran Labs ........--+-+-+ 
Taskview by Sunny Hill Software .......-+-+-+- 
VTEK, Term Emulator by Sci Endeavors . . . Vew 


phoenix products 

Pasm86 Macro Assembler ......... New & Faster 
Pdisk Hard Disk Utility... 0... eee es New 
PRORtREN POE ot Sassi s snore ps an eee 
Pfinish Performance Analyzer 
Pfix-86 Program Debugger... 1... eee ee eee 
Pfix-86 Plus Symbolic Debugger........--+++- 
PforCe Comprehensive C Library 
Plink-86 Plus Overlay Linker .........---4+5- 
Pmaker Make Utility... .......-65- New Version 
Pmate Macro Text Editor 
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Your Quality Connection ... 
LOWEST PRICES 


Since this ad is prepared in advance of publica- 
tion, some of our current prices may be lower 
than what’s advertised here. 

Call for latest pricing. 


Oe 


FREE SHIPPING 
Orders within the USA are shipped FREE via 
standard UPS. Express shipping is available at 
the shipping carrier’s standard rate with no rush 
fees or handling charges. 


oO@ 


CREDIT CARDS 
VISA and MasterCard are accepted at no extra 
cost. Your card is charged when your order is 
shipped. Mail orders please include credit card 
expiration date. 


ooo 


CODs AND POs 
CODs and Purchase Orders are accepted at no 
extra cost. POs with net 30-day terms are 
available to qualified US accounts. 


ooo 


FOREIGN ORDERS 
Foreign and Canadian mail orders please include 
sufficient funds for shipping (excess payment 
will be refunded). Foreign orders (except 
Canada), please include$10 for customs form 
preparation. All transactions are in US dollars. 


eee 


VOLUME ORDERS 
Call for special pricing. 


OOO 


SOUND ADVICE 
Our knowledgeable technical staff can compare 
products, answer technical questions and send 
you detailed product information tailored to 
your needs. 


eee 


30-DAY GUARANTEE 


Most of our products come with a 30-day return 

guarantee or a 30-day evaluation period. Please 

note that some products are restricted by 

their manufacturers from this guarantee. Call 
for more information. 


CALL TOLL FREE 





US ER 


tyre 


OHIO 216-877-3781 
CUSTOMER SERVICE 216-877-1110 
eee 
Hours: Weekdays 8:30 AM to 8:00 PM EST. 


Ohio customers please add 5% state sales tax. 


Call or write for our FREE comprehensive 
price guide. 


Prices are subject to change without notice. 
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pike 


Pre-€ fil Uy erie tasks ee New Version 295 
Ptel Binary File Transfer Program .. 1.6.0.0 00 ees 195 
polytron products 
PolyBoost 7he Software Accelerator......... New 80 
Polytron C Beautifier 0.0. i486... os ee 49 
Polytron: Library. cess eS ee ces 99 
Polytron PowerCom Communications .......... 179 
PolyLibrarian Library Manager ............4.. 99 
PolyLibrarian Il Library Manager ............. 149 
PolyMake UW/X-like Make Facility ............. 99 
PolyOverlay Overlay Optimizer ..............- 99 
PolyWindows Products A// Varieties .......... CALL 
PolyXREF Complete Cross Ref Utility ........... 219 
PolyXREF One /anguage only ............+45. 129 
PVCS Version Control System ..........020005 395 
softcraft products 
Btrieve /SAM Mor with No Royalties .........4.. 250 
Xtrieve Query Utility ............ New Version CALL 
Rtrieve Report Option.......... New Version CALL 
Btrieve/N for Networks... 0.0... eee eee eee 595 
RUMORS Toe Sch eee Bea New Version CALL 
Rtrieve/N Report Option ....... New Version CALL 
text editors 
Brief from Solution Systems ........62000 000 195 
Epsilon Emacs-like editor by Lugaru........ + pei, ee 
KEDIT by Mansfield Software ............404. 125 
PC/VI by Custom Software Systems ............ 149 
SPF/PC ty Command Technology Corp.......... 195 
WOU by Compu iew oa 5 5 i ces ooo lie ve oN 150 
Vedit Plus by CompuView .............0005. 185 


turbo pascal utilities 

See also Blaise, Borland and SoftCraft sections. 
ALICE /nterpreter by Software Channels .......... 
Btrieve /SAM File Mgr............ See SoftCraft 250 


FirsTime for Turbo by Spruce Tech ........... 75 

Flash-up Windows by Software Bottling ........ 75 

HELP/Control by MOS................ New 125 

On-line Help from Opt-Tech Data Proc .......... 149 

Screen Sculptor by Software Bottling .......... 125 

TDebugPLUS dy TurboPower Software....... New 60 

Turbo EXTENDER by 7urboPower Software ...... 85 

Turbo Professional by Sunny Hill. ..........-. 70 

TOIMOHALD NOMIMS oo i Za weds tes New 99 

TurboPower Utilities by TurboPower Sftwr ...... 95 

TurboRef —by Gracon Services............ 50 

TurboWINDOW by MetaGraphics............. 80 

wendin products 

Operating System Toolbox ................ 99 

PEUX: Operating siateit 06 ajc oS aN ee es 99 

PCVMS Similar to VAX/VMS «0.6... eee eee 99 

XTC Jext editor with Pascal source ............. 99 

xenix system v 

See also Microport System V/AT section. 

XENIX System V Complete System sy SCO .... 1295 
XENIX Development System............. 595 
XENIX Operating Sys Specify XT/AT........ 595 
XENIX Text Processing Package ......... 195 

xenix products 

APL*PLUS/UNX For AT XENIX by STSC ........ 995 

Btrieve /SAM File Mgr by SoftCraft............. 595 


C-ISAM by Relational Database Sys ......... New 319 


c-tree /SAM Mgr w/Source by FairCom ......+..++ 395 
dBx dBase/C Translator by Desktop Al .... 2.4455: 550 
dbVISTA Single User w/Source by Raima ........ 495 
dbVISTA Multi User by Raima... 6... ee eee 495 
dbVISTA Multi User w/Source by Raima ........- 990 
Informix by Relational Database Sys ........4++- 995 
informin@Gt by ROS ..% ooo 5 0 oes tise eds 1500 
OTIS By FOSS okie oo 6 os oh ne we 995 
LOT OK BAO o i's Sie Bo hi pone a te ee HS 595 
Micro Focus Level 1! Compact COBOL ....... 1000 

PONIES hi ua ase wee BART OES CRS 400 

bevel ANIMATOR 22.03.6255. cas 600 
Microsoft BASIC Interpreter .............. 350 
Microsoft COBOL Compiler ............... 995 
Microsoft COBOL Tools — with Debugger.... 450 


Microsoft FORTRAN Compiler ............. 695 


Microsoft Pascal Compiler................ 695 
Networks for XENIX by SCO ............... 595 
PANEL Screen Designer byRyan-McFarland........ 750 
SCO Professional Lotus clone by SCO.......... 795 


Se ad 


Programmer's Connection Incorporated 
136 Sunnyside Street 
Hartville, Ohio 44632 
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845 
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1199 
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449 
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319 
479 
239 
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programmer's conneclLion 


SAPIENS STAR SAPPHIRE 


A Common LISP Compiler for the IBM PC™ 








* Unlimited multi-dimensional arrays 
* Object-oriented programming (flavors) 
* Numerical functions 

(bignums up to 128 digits) 


* 710 functions 

* C source code for Libraries 
* Lexical and dynamic scoping 
~¥%& Compiles to C 










Star Sapphire is a Common LISP compiler for the IBM PC. LISP is high-level general purpose programming 
language especially suited for writing artificial intelligence applications. All 710 functions of Common 
LISP are supported in Star Sapphire. The memory-intensive requirements of LISP are met with an 8 
megabyte configurable workspace, Sapiens V8. Speed test results show a virtual memory overhead of 
less than 10%. It is primarily written in C. 

Star Sapphire compiles programs to C. This increases speed and efficiency, and allows for porting code to other C 
environments. Compiling to C also permits the combination of LISP and C source code. 


Star Sapphire includes a LISP to C translator, the runtime libraries, a runtime optimizer, and code samples, including 
graphics and an expert system engine. The IBM ROM BIOS is accessible through a library of 
keyboard, screen and graphics routines. The graphics library draws points, lines, and circles. 

Star Sapphire is suitable for AI programming directly on the IBM PC, as well as for use as an Al delivery system. 
Developers can port programs written on larger machines to the desktop computer. Our C interface 
allows for delivery of commercial applications for the PC market. 


SYSTEM REQUIREMENTS: The system requires a DOS-based C compiler which supports huge model. 
It needs 640K of RAM and a hard disk. Programs developed with Star Sapphire will run ona system 
with 256K of RAM. A hard disk is recommended for large applications. The virtual memory manager 


uses 16-128 kilobytes of RAM at the programmer's discretion. 


Sapiens Software, 236 Mora St., Santa Cruz, CA 95060 * 408/458-1990 
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DDJ announces a new service: Programmers’ Opportunities 


Dr. Dobb's Journal of Software Tools has a 
10-year history of serving professional 
programmers with the most useful tech- 
nical information of any publication for 
the computer industry. Now, in our new 
Programmers’ Opportunities section, we 
are offering our readers information to 
help them stay on top of the quickly 











Position Title: 
Position Location: 
Company / Agency: 
Address: 

City/ State/ Zip: 
Phone: 


Fortran Pgmr/Analyst 
Nashville TN 

Telco Research Corp. 
1207 17th Avenue S. 
Nashville TN 37075 
615-329-0031 


Zila 


changing technical-employment market. 

We invite the top hardware, software, 
electronic, and instrument companies to 
list their computer-related career oppor- 
tunities in Dr Dobb’s Journal. A limited 
number of companies will be given the 
chance to list jobs each month on a first- 
come, first-served basis. 


Position Title: 
Position Location: 
Company /Agency: 
Address: 

City/ State/ Zip: 
Phone: 


Nashville TN 

Telco Research Corp. 
1207 17th Avenue S. 

Nashville TN 37075 

615-329-0031 





“C” Language Applications Pgmr 


For more information on how your 
company can hirea pro, write or call Gary 
George, 893 Monroe Dr., Atlanta, GA 
30308; (404) 897-1923. 

Our first responses are shown here as 
examples of what your listing will look 
like: 





6502 Assembly Pgmr(C64/128) 
Armonk NY 

Bodylog, Inc. 

34 Maple Avenue 

Armonk NY 10504 
(914)-273-6480 


Position Title: 
Position Location: 
Company /Agency: 
Address: 

City/ State/ Zip: 
Phone: 
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These Sofistrips by Cauzin Systems 
contain the listings and object code for 
Howard Katz's Mandelbrot program. 
Strips 1 through 10 on this page and on 
page 71d contain the source code, in 
ASCII text format. Strips 1 and 2 on 
page 71d contain the _ actual 
application. 
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Byte Magazine called it. 


“CIARCIA’S 
SUPER 
SYSTEM | gi 


The SBI80 
Computer/Controller 


Featured on the cover of Byte, Sept. 1985, 
the SB180 lets CP/M users upgrade to a 
fast, 4’ x 72” single board system. 


© 6MHz 64180 CPU 


(Z80 instruction superset), 256K RAM, 
8K Monitor ROM with device test, disk 
format, read/write. 
e@ Mini/Micro Floppy Controller 
(1-4 drives, Single/Double Density, 
1-2 sided, 40/77/80 track 3%’; 5%”’ 
and 8” drives). 
Measures 4’’ x 7’4"’ with mounting holes 
One Centronics Printer Port 
Two RS232C Serial Ports 
(75-19,200 baud with console port 
auto-baud rate select). 
© Power Supply Requirements 
+5V +/-5% @500 mA 
+12V +/- 20% @40mA 
ZCPR3 (CP/M 2.2/3 compatible) 
Multiple disk formats supported 
Menu-based system customization 


$B180-1 
$B180 computer board w/256K 
bytes RAM and ROM monitor 


Sete Dy: poke ks. Cobusrs a beaain 5 isee $369.00 
$B180-1-20 

same as above w/ZCPR3, ZRDOS 

and BIOS source............. $499.00 


-Quantity discounts available- 








new 
COMM 180-M-S 
optional peripheral board adds 
1200 bps modem and SCS! 
hard disk interface. 
TO ORDER 
CALL TOLL FREE TELEX 
1-800-635-3355 643331 


For technical assistance or 
to request a data sheet, call: 


1-203-871-6170 


es Micromint, Inc. 
25 Terrace Drive 


Vernon, CT 06066 
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Is LISP ight 


for Your Expert Sys 


Find Out — FREE 


You can explore LISP 
by examining a complete 
sample problem. Call 
and we will send you 
a free source listing 
of ‘“SELECTWP’’.* 
It prompts users for 
criteria and helps 
them choose which 
micro word processor to buy. 
Look over the TransLISP syntax (COM- 
MON LISP compatible). Your application 
will probably have similar characteristics. 


Power & Flexibility 


Do you get flexibility in PASCAL and C? 
Of course, but examine the listing of 
SELECTWP to see how much more power 
and flexibility you get. The LISP advantages: 

© forward references make program flow 

fit the problem 

® manipulate data structures of varying sizes 

© create your own language to fit the 

problem domain . 
© avoid mundane, busy work required with 
traditional procedural languages 

© powerful function and macro building 

facilities provide better data abstraction 
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UNIX-like Utilities for Managing 
C Source Code 


No C programmer should be without their 
assistant — C ToolSet. All of the utility programs 
are tailored to support the C language, but you 
can modify them to work with other languages 
too. 

Source code in standard K&R C is included; 
and you are welcome to use it with any compiler 
(UNIX compatible) and operating system you 
choose. 


12 Time Savers 


DIFF - Compares text files on a line-by-line 
basis; use CMP for byte-by-byte. Indispensable 
for showing changes among versions of a 
program under development. 

GREP - Regular expression search. Ideal for 
finding a procedural call or a variable definition 
amid a large number of header and source 
files. 

FCHART - Traces the flow of control between 
the large modules of a program. 

PP (C Beautifier) - Formats C program files 
so they are easier to read. 

CUTIL - A general purpose file filter. 


Requires MSDOS and 12K RAM 


335 Washington St., Norwell, MA 02061 (617) 659-1571 


Re OCR ESN EL 


C TOOLSETS@ 


TransLISP gives You 


the Advantage 


Using TransLISP for your expert system has 
several advantages over other AI tools. And 
you will see SELECTWP illustrate: 


* the ability to control how decisions are 
made 

* the freedom to assign weights and react to 
user choices 

* the complete control you have over how a 
problem is solved, and interaction with the 
user 


Nothing to lose 


Examine LISP carefully by studying a practical 
program free. 

Or buy TransLISP risk free. SELECTWP is just 1 of 
over 20 sample programs in the complete TransLISP 
system. The other sample programs include: an adven- 
ture game, a program to read dBASE SDF files, ‘‘Job 
Counselor’ and more. Use the modular tutorial, the 
complete 300+ function LISP interpreter, and the 
online help, to get started in LISP in only a few hours. 

Develop programs of up to 12000 lines on a 640K 
system or use TransLISP on a floppy only, 256K RAM 
machine. MSDOS. 


Call 800-821-2492 for SELECTWP 
FREE. Or order the complete TransLISP 
system risk free for only $95. 
ib ° 
Solution 
ystems 





CCREF - Cross references variables used within 
a program. 

CBC (curly brace checker) - checks for pairing of 
curly braces, parens, quotes, and comments. 
Other utilities include DOCMAKE, ASCII, 
NOCOM, and PRNT. 

Source code to every program is included! 


Thorough User Support 
Text and Online 


C ToolSet documentation contains descriptions 
of each program, a listing of program options 
(if any), and a sample run of the program. 

On-line help gives you information on the 
programs and how to run them. Most of the 
programs respond to -? on the command line 
with a list of options. 


Call 800-821-2492 to order C ToolSet 


risk-free for only $95. 


Solution 
ystems “ 


335-D Washington St., 
Norwell, MA 02061 
(617) 659-1571 
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Listing One (Text begins on page 42.) 


Listing One 








































Legend Plot Item equ 1 
; < MandelZoamn.ASM > Sat 30 Nov '85 h. katz He gett 3 ie : 
; Sun 4 May '86 Pattern Spacing equ 30 ; Delta-Y for both Counts & Patts 
Pattern X equ 62 ; Left for Patts in Legend DLOG 
Pattern Y equ 86 7 Top for lst Patt in Legend DLOG 
INCLUDE MacTraps.D Pattern Size equ 8 ; Bytes 
String Format 3 7 pre-length DC.B and PEA Strings X Org Scr X equ 10 
X Org Scr Y u 2 
XREF Convert 2 Fixed Point ; Procedure defined in < Str2FP.ASM > ICE bia ' 
Time Scr X equ 10 
MACRO Fix Squared Rn = 7; a Mac-style macro “Ser 
clrel] — (sp) 3; ( Mac-Mac ? ) ee Ae ee ae 
move.1 {Rn}, - (sp) 
peti {Rn}, - (sp) st First Entry (AS) 
~ : sg as aaa sf Radio 1 State (A5) 
3 sp)+, {Rn} | st Radio 2 State (AS) ; default Pen is 2 X 2 
MouseDown EQU 1 ; for _GetNextEvent “3 Pee 
numToSt ring EQU 0 ; for _Pack7? conversions BSR InitManagers 
a EU 24 ; offset from QDVars Ptr ne Se ae 
ite FOU vt BSR Draw Menu Title 
port Rect EQU 16 + offset from start of Window Record Mainline 
pnPat EQU 58 ; offset from start of Window Record 


X_Screen_ Offset equ 4 BSR Open_Params DLOG 
were a es tst.b First Entry (A5) 
Col Pixels equ 256 BNE.s @Set_Radios 
PenSize equ 2 BSR Reload DITL ; 2nd time around - 
7 get old Parameters 
HiLite Off equ 0 @Set_ Radios 
Pee sf First Entry (A5) 
padign tenn? ae 1B BSR Set_Radio Buttons 
Radio Item 3 aoe 11 BSR Get Param Items ; Get User Choice / if OK, Toggle Radio 
re ea ; ; Buttons, Convert & Save Counts 
X_Org_Item equ 12 ; Item Numbers in Params DITL EMI Exit_To_Shell 
Y Org Item equ 13 BSR Save Param Items ; Save Str Counts / Convert 3 Fix-Pt Nums 
Side Length Item equ 14 pea paramsDLOGStorage 
Count_Item T equ 15 _CloseDialog 
Org_Spacing equ 24 ; Space tween X, Y, and S BSR Draw Mandel Window 
Max Count Digits equ 4 ; Num Digits in ‘Count' Item Strings BSR Open_Legend_DLOG 
s ey BSR Draw Patterns 
Count_Str_X equ 5 ; X_coord of Counts BSR Draw_Org Strings 
Count Str Y equ 114 # Y_coord of lst ( Max ) Count E 
Count Str Size equ 10 ; Bytes wide (continued on page 74) 


_ Transform Your Programs 


edward k. ream with 
-_ CPP—C Preprocessor Plus 


UNIX/PG-DOS ENGINE 


XK-186, A FAST, COMPLETE 
SINGLE BOARD COMPUTER 


Includes ALL features of the standard C preprocessor. 

@ Define arbitrarily complex macros with #define command. 

e Include and nest files to any depth with #include command. 

e Include lines with #if, #ifdef and #ifndef commands. 

¢ Define multiple constants with #enum command. 

¢ Optional extra feature: Imbed formatting or other commands 
in your source code. (Lines starting with . or « are ignored.) 


mRuns PC-DOS and 
Unix workalikes 





m10 MHz - 

no wait state, 16 Bit 3 

80186 Processor Fast and flexible # g 

¢ 30 times faster than the Preprocessor published in Dr. Dobb’s 
Journal. 

e Can be used for any language, including assembler. 

¢ Can be used as a stand-alone macro/include processor. 

© Code can be used as the lexical analyzer for parsers or 


assemblers. 


m™512 KB RAM 
Standard — 
expandable 
to 1 MB 








Complete 

e You get complete SOURCE CODE in standard C. 

° You get everything you need to use CPP immediately. 

¢ CPP is unconditionally guaranteed. If for any reason you are 
not satisfied with CPP, your money will be refunded promptly. 


Price: $95. 


®@ Full hard 
disk support 














® Includes 2 serial 
TR IAL! ports, floppy disk 
. _ interface, centronics 
ports, expansion interface 
Call and ask and battery-backed clock. 







Enteleki, Inc. 
210 N. Bassett St., Room 101 
Madison, WI 53703 


Tele. (608) 258-7078 


TO ORDER: Specify both the operating system (MS-DOS, CP/M 80 or CPM 68K) 
and the disk format (8 inch CP/M or the exact type of 5% inch disk). Send a check or 
money order for $95 ($105 for foreign orders). Foreign checks must be denominated 
in U.S. dollars drawn on a U.S. bank. Sorry, | do NOT accept phone, credit card or 
COD orders. Please do NOT send purchase orders unless a check is included. 


about our risk free 


evaluation. <> C A: ni a 


(415) One Waters Park Drive, Suite 101 


345-4040 _ SanMateo, California 94403 USA 


Telex: 756224 
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dBASE to 
the max. 


Introducing a turbocharger for searching for file names and switching 

dBASE: between screen buffers. 
Now the world’s leading dBASE gurus, Not to mention plenty of other neat 
Jeb Long, Robert Byers and Wayne Ratliff, — stuif. 
have combined their own personal To order, or for more information 
utilities into a collection of dBASE pro- or the name of your nearest dealer, call 
gramming tools that'll allow you tomaxi- the Ashton-Tate’ Publishing Group at 
mize your output while minimizing your (800) 487-4829, Ext. 221. 
time and effort. And put your dBASE into high gear. 

Included are“secrets of the stars” ; 
on dBASE database repair and recovery, 
program structuring and cross reler- 
encing for dBASE programs, restricting 
access to a dBASE database, com- 
munications port control from within 
dBASE, menubar creation, saving and 
restoring screens, and much more. 

It’s “insider information’ you can't 
go to jail for using. 

For merely $89.95 you have at your 
fingertips what the database honchos 
do: over a dozen DOS level programs 
to assist you with disk and directory 
management, time displays, and rapid 





Circle no. 248 on reader service card. 


Trademarks/owner: dBASE, Ashton-Tate/Ashton-Tate. © 1986 Ashton-Tate. All rights reserved. 








Listing One (Listing continued, text begins on page 42.) 


MANDELBROT PROGRAM 





BSR Timer On @1 clr.b — (sp) 
pea Event Record 
BSR Do Mandelbrot pea theDialog 
os pea ItemHit 
baMI Exit To Shell z These 2 in case we've interrupted _DialogSelect 
bHI Do Another 7 plotting in the middle tst.b (sp) + 
x DNE.s Get_Legend DLOG Item 
BSR Timer Off 
BSR Write Time clr.b - (sp) 
pea Event Record 
Wait 4 Command pea ParamsDLOGStorage 
aes pea ItemHit 
BSR Get Next Event _DialogSelect 
bEQ Wait 4 Command 7 No Event tst.b (sp) + 
BSR Was Dialog Event move #0, DO 
bEQ Wait 4 Command z 0 => Hang Around a Bit RTS 
bMI Exit To Shell : - => Quit 
7; + = do another 
Do_ Another Get_Legend DLOG Item 
pea MandelWindStorage move ItemHit, DO 
CloseWindow anp #Legend Plot Item, DO 
pea LegendDLOGStorage bEQ @Return Plus 
CloseDialog anp #Legend Quit Item, DO 
sa bEQ @Return Minus 
BRA MainLine move #0, DO 
RTS 
Exit To Shell 
uy @Return Minus ? = Quitting 
_ExitToShell 
move #-1, DO 
RTS 
Save Mouse State ; if the Mouse is Down on Launch, we'll 
* _SetPat and Line for EVERY Point @Return Plus z = Do Another Mandelbrot 
sf Mouse Down (A5) move #1, DO 
clr —- (sp) RTS 
_Button 
tst (sp) + 
beq @rts Timer On 
st Mouse Down (A5) 
@rts RTS cir. - (sp) 
_TickCount 
move.1 (sp)+, Start_Time (AS) 
Draw Menu Title RTS 
move.1l #SOOOF0010, -(sp) 
_MoveTo Timer Off 
pea MBarTitle A 
_DrawString PenNormal 
RTS move #4, -(sp) ; Wake the Poor User 
_SysBeep 
Reload DITL 
clz,1 — (sp) 
lea TempStr, A2 TickCount 
move #0, D3 move.1 (sp)+, D3 
sub.1 Start Time(A5), D3 ; ( Stop - Start ) in Ticks 
move #X_Org Item, D4 divu #60, D3 7 Num Seconds (in Low Word) 
BSR ae RTS 
move.1 ItemHandle, -(sp) 
ek X Org Str MenuRect dc 0, 10, 19, 200 
Set IText 
move #Y Org Item, D4 rari re 
BSR Get Item Text 
move.1 ItemHandle, -(sp) a —“—“~9 oO" 
= 1 ee GetWTitle 
_SetIText ~ 
move #Side Length Item, D4 oe TempSTR, a2 
ae 1 vege niar ns (sp) move.1 a2, a3 7 Save start addr 
‘ : Side Le th elr.1l dS 7 Clear out old junk 
cada Move.b = (a2)+, d5 ; Length Byte 
= adda.1 d5, a2 # point past last Char in Str 
lea TempStr, A2 te > 
lea Count. Strings, a3 — j cao ad 7 addr of length byte 
move #0, D 3 
move sCount_Item 1, D4 ae a dl 7 save new length 
@Reset_ Counts ae ri Seed ? put back new length byte 
BSR Get_Item Text @Loop 1 
move.1 ItemHandle, —- (sp) os move.b (a0)+, (a2)+ 7 add new string to end 
move.1 A3, -(sp) ; Addr of Current Count String dbra dl, @Loop 1 
_SetIText ve 
move.b -—(a2), d4 7 save last char 
add.1 #Count Str Size, A3 
add #1, D4 7 next Item Number in DLOG ext.1 D3 7 Elapsed Time in seconds 
add #1, D3 z increment loop counter move.1] D3, DO 
canp #4, D3 7 done all 4 ? move.l a2, ad 
BMI @Reset Counts 7 no move #NumToString, -(sp) 
Pack7 
RTS a 
elr.1l dl 
move.b (a2), dl 7 Save New Length Byte 
Get_Next_Event move.b d4, (a2) # restore last Char of lst String 
clr ~ (sp) add.b di, dS 7 new length 
move #-1, -(sp) move.b d5, (a3) # and put back in Length Byte 
ic adda.1l dl, a2 # point to end of string 
x adda.1l a ; 
See ta) #1, a2 points 1 past end 
RTS lea * seconds’, al 
move.b (al)+, dl 7 Save new Length Byte 
ext .w di 
Was Dialog Event add.b di, dS - new total Length of Strings 
move. ‘ ? 
ek tan ve.b dS, (a3) put it back in Length Byte 
so sere @Loop 2 
_IsDialogEvent vat move.b +, ‘ ® 
tst.b (sp) + 7 EQ = No Event sub ne seek fee ee 
= @1 7 NE = Was DLOG Event bhi @Loop 2 


(continued on page 76) 
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BRIEF is BEST 


“BRIEF is simple to learn and use and extremely sophisticated.” 


The Program 


Editor with 
the BEST 
Features 


Since its introduction, 


BRIEF has been sweep- 
ing programmers off 
their feet. Why? 


Because BRIEF offers the 


features MOST ASKED 
FOR by professional 
programmers. In fact, 
BRIEF has just about 
every feature you’ve 
ever seen or imagined, 
including the ability to 
configure windows, 
keyboard assignments, 
and commands to 
YOUR preference. One 
reviewer (David Irwin, 
DATA BASED ADVISOR) 
put it most aptly, 
‘‘(BRIEF). . .is quite 
simply the best code 
editor I have seen.”’ 


Solution 


ystems™ 


REGULAR EXPRESSION 
SEARCH 


Regular expression searching is one of BRIEF’s most power- 
ful features. A regular expression is a series of “wildcards” 
that match pieces of your text. BRIEF supports a full set of 
regular expression characters similar to those found in UNIX 
including: beginning an end of line, groups, and the “closure” 


and “or” operators. 


As Steve McMahon explained in Byte, “Not only does BRIEF 
make use of this marvelously general regular expression notation 
in its search facility, but its pattern recognition extends to its 
replacement (or translation) facility.” “The usefulness of this 
facility for programmers who deal constantly with the regular 
expressions of formal languages 1s obvious. . .” 





Every Feature You Can Imagine 


Compare these features 
with your editor (or any 
other for that matter). 

@ FAST 
Full UNDO (N Times) 
Edit Multiple Large Files 
Compiler-specific 
support, like auto 
indent, syntax check, 
compile within BRIEF, 
and template editing 
Exit to DOS inside BRIEF 
Uses all Available Memory 
Tutorial 
Repeat Keystroke 
Sequences 
e 15 Minute Learning Time 
e Windows (Tiled and 
Pop-up) 


e Unlimited File Size 
-(even 2 Meg!) 

e Reconfigurable Keyboard 

e Context Sensitive Help 

e Search for ‘‘regular 
expressions’ 

e Mnemonic Key 
Assignments 


¢ Horizontal Scrolling 
¢ Comprehensive Error 
Recovery 


A Complete Compiled 
Programmable and 
Readable Macro Language 
EGA and Large Display 
Support 


e Adjustable line length 
up to 512 


MONEY-BACK GUARANTEE 


Try BRIEF ($195) for 30 days - 


TO ORDER CALL (800-821-2492) 
SOLUTION SYSTEMS, 335-D WASHINGTON ST., NORWELL, MA 02061, 617-659-1571 


Circle Reader Inquiry Number 142 


PC Magazine, July 1986 


Program Editing 
YOUR Way 


A typical program editor 
requires you to adjust 
your style of programming 
to its particular require- 
ments - NOT SO WITH 
BRIEF. You can easily 
customize BRIEF to your 
way of doing things, 
making it a natural ex- 
tension of your mind. 
For example, you can 
create ANY command and 
assign it to ANY key - 
even basic function keys 
such as cursor-control 
keys or the return key. 


The Experts Agree 


Reviewers at BYTE, 
INFOWORLD, DATA 
BASED ADVISOR, and DR. 
DOBB’S JOURNAL all came 
to the same conclusion - 


BRIEF IS BEST! 


Further, of 20 top in- 
dustry experts who were 
given BRIEF to test, 15 
were so impressed they 
scrapped their existing 
editors! 


wot COPY pROTECTED r 
ie 


If not satisfied get a full refund. 


BRIEF is a trademark of UnderWare 








pea MandelWindStorage 
pea TempSTR 
_SetwTitle 

RTS 


Do_Mandelbrot 


pea MandelWindStorage 
move.1 (sp), (sp) #7 copy WPtr for SetWTitle trap 
_SetPort ; draw in this Window 
tst.b Radio 1 State (A5) 
beq.s @l 
pea ol Xo 
bra @SetTitle 
@1 tst.b Radio 2 State (AS) 
beq.s @2 
pea ae 
bra.s @SetTitle 
@2 pea "4X 4° 
@SetTitle 
_SetwWTitle 
@Set_Pen Size 
move #PenSize, D3 
tst.b Radio 2 State(A5) ; Draw with 2 X 2 Pen ? 
BNE @Set_Pen 7 yes 
add D3, D3 ; Pen = 4 X 4 
tst.b Radio 3 State(A5) ; Draw with 4 X 4 ? 
BNE @Set_ Pen 7 yes 
move #1, D3 7 Draw’with 1 X 1 
@Set_ Pen 
move D3, Pix Per Pt (AS) 
move D3, -(sp) 
move (sp), — (sp) 
_PenSize 


@Set Plot Size 


lea MandelWindStorage, a0 

move portRect+4 (a0), d4 ; Window.Bottom 

move #Y Screen Offset, dO 

sub a0; a4 ; frame at Bott 








A full year for only $18. 


ink about it, a full year of technical and 

seful information about C. The C Journal 

provides programming information for any 
machine —- IBM PC™, UNIX™ -based, Macin- 
tosh™, or CP/M™ - micro, mini or mainframe. 

Look forward to each issue for: 

— NEW in-depth reviews and feature articles— 
C compilers, editors, interpreters, function 
libraries and books. 

— NEW efficiency hints and tips. 
















— NEW news and rumors from the ANSI stan- 
dards committee and industry. 







bscribe today to the only magazine that 
dedicated specifically to C - The C 
Journal. 

Please send check or money order for $18 
(cover price $28) to: 


==InfoPro Systems 


3108 Route 10, Denville, NJ 07834 
Call TOLL FREE (800) 628-2828 ext. 845 
for charge card orders only) 

Please add $9 for overseas mail and $6 for Canadian subscriptions. 


















THE G JOURNAL’ 


Trademarks — IBM PC: |BM Corp.; UNIX: AT&T Bell Labs: Macintosh: Apple Computer Corp.: 
CP/M: Digital Research Inc.; The C Journal: |nfoPro Systems. 
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Listing One (Listing continued, text begins on page 42.) 


— NEW interviews with C experts. Lessenehcroanosdi 









sub d3, d4 7 Move up 1 PenSize from Bott 
move d4, Y Start (a5) 

sub dO, d4 ; adjust for frame at Top 
move d4, Num Rows (a5) 

move portRect+6(a0), d4 ; Window.Right 

move #X_Screen Offset, dO 

asl #1, dO ; frame at Left & Right 

sub do, d4 

sub d3, d4 7 allow for penWidth 

move d4, Num Cols (a5) 


@Get_C Increment 


move.1 Y_side(A5), DO 


move Num_ Rows (A5), DS 

ext.1 d5 

divu Pix Per Pt(A5), DS ; = # of Plottable Pts on Y-Axis 

BSR Get_Del Factor ; Del_Y returned as Fixed Pt 


move.l D4, Del_C_imag(A5) ; in D4 


clrsl — (sp) 

move Num_Cols (a5), -(sp) ; numerator 

move Num_ Rows (a5), -(sp) ; denominator 

_FixRatio ; Fixed-Pt Ratio on stack 
move.1 (sp)+, dd 7 temp save it 

eirut - (sp) 

move.1 dO, -(sp) 7 Num_Cols/Num_Rows 
move.1 Y Side (a5), - (sp) 7 x Y_ Side 
FixMul =i 3o-------- 
move.1 (sp)+, X_Side (a5) ; = X_Side 
move.] X_Side(A5), DO 

move Num_Cols(A5), D5 

ext.1 ds 

divu Pix Per Pt(A5), DS ; = # of Plottable Pts on X-Axis 
BSR Get Del Factor 


move.1 D4, Del_C Real (AS) 


BRA Cont inue 


Get _Del Factor 


move.1] DO, D3 7 Save the fractional part 
swap DO 7 and get the whole part 
cirsi - (sp) 

move DO, -(sp) ; side ( integer part ) 


(continued on page 78) 


FTL Modula-ll 
$49.95! 


Your next computer language. The successor to Pascal, 
Modula is powerful. Why? Once a routine is written, it need 
never be recompiled. Programs work everywhere from Z80 
through VAX. 


FTL Modula-ll is a full Z80 CP/M compiler (MSDOS version 
soon)! It’s fast -- 18K source compiles in 7 seconds! The 
built-in split screen editor is worth $60 alone. Some stan- 
dard features: full recursion, 15 digit reals, CP/M calls, 
coprocesses, assembler and linker. The one-pass compiler 
makes true Z80.COM, ROMable code, too. Get the language 
you've waited for now. Only $49.95! 


FTL Editor Toolkit 


Full source to our split-screen programming editor. Curious? 
Want to customize to your tastes? Want sample Modula-ll 
code? This is perfect for you. Comes with all you need for 
your personal editor or terminal installer. Just $39.95! 


WORKMAN & ASSOCIATES 
1925 East Mountain St. 
Pasadena, CA 91104 
(818) 791-7979 


We have over 200 formats in stock! Please specify your for- 
mat when ordering. Add $2.50 per order for shipping. We 
welcome COD orders! 
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ALL SALES ARE MADE SUBJECT TO THE TERMS OF OUR 90 DAY LIMITED WARRANTY. A COPY OF THIS WARRANTY IS AVAILABLE FREE, ON REQUEST. 






DIGITAL RESEARCH COMPUTERS | (214) 225-2309 
STANFORD TURBO XT - $399 


4.77 OR 8 MHZ * FCC CERTIFIED * 640K MOTHER BOARD (0 K) * .135 WATT P.S. 
* XT-AT 5160 KEYBOARD « FLIP TOP CASE «x 8 EXPANSION SLOTS * ASSEMBLED AND 
TESTED * WITH BIOS *« FLOPPY CONTROLLER CARD & CABLES * WITH DOCUMEN- 
TATION. ADD $12 UPS. 


A.R.C. XT TURBO - $529 


4.77 OR 7.4 MHZ * 8 EXPANSION SLOTS * SLIDE OUT PC CASE * 5160 XT-AT 
KEYBOARD « MS DOS 3.1 + BASIC DISKETTE * 256K RAM, EXPANDABLE TO 640K 
* 4 LAYER JAPANESE MOTHER BOARD * FULLY TESTED AND BURNED IN. 
* SUPERIOR, CLEAN BIOS. * 135 WATT P.S. x SUPERB DOCUMENTATION x FCC 
CERTIFIED. ADD $15 UPS. 





CAF 8 MHZ AT COMPATIBLE - $1399 


* PRODUCED BY CAF: A $500 MILLION/YEAR TAIWANESE CONGLOMERATE. 
* BURNED IN FOR 48 HRS. * INCLUDES DOS 3.1 AND MANUALS. 

* 512K RAM, EXPANDABLE TO 1MEG ON M.B. * 1.2 MEG FLOPPY INCLUDED. 
* 80286 WITH OPTIONAL 80287 * ON BOARD REAL TIME CLOCK. 

* AT STYLE KEYBOARD WITH ENLARGED ENTER AND SHIFT. 

* 195W POWER SUPPLY * COMPLETE SERVICE MANUAL AVAILABLE: $40. 

* COMPLETE SYSTEM DOCUMENTATION INCLUDED, PLUS DOS MANUALS. 
* FLOPPY AND HARD DISK CONTROLLER CARD INCLUDED. 

* ERSO BIOS FOR MAXIMUM AT SOFTWARE COMPATIBILITY. 

* LIMITED 1-YEAR FACTORY WARRANTY. x FCC CERTIFIED! 

* 1.2 MEG FLOPPY CAN READ AND WRITE 360K DISKETTES. ADD $15 UPS. 



















2 * V20.8 MHZ NEC PROCESSOR. REPLACES 8088. - $12.95 WE STILL SELL S100 PRO- 
39 MS - AT COMPATIBLE. * TWO 1/2 HT. D.S. DD. FLOPPIES INSTALLED: $175/Pair Sines easel whe 
* 256K DRAM. 150 NS. INSTALLED AND TESTED: $28/9 
VERY LIMITED STOCK — $325 * 64K DRAM. 150 NS. INSTALLED AND TESTED: $10/9 
* HARD DISK: ST225 WITH CONTROLLER CABLES & FORMATTED: $425 
* ZUCKER COLOR CARD WITH PARALLEL PRINTER PORT: $86 
| MEX-PC MODEM $69 Qs * MONOCHROME/GRAPHICS VIDEO CARD WITH PRINTER PORT: $89 
SOFTWARE PACKAGE s * PLEASE CALL FOR MONITOR PRICING 


A FANTASTIC COMMUNICATIONS PACKAGE WITH FEATURES TOO . ; i 
NUMEROUS TO LIST. SEE MAY/JUNE ’86 MICRO SYSTEMS JOURNAL FOR SCHEMA: Schematic Capture and Drawing Package 


FULL REVIEW OR CALL FOR BROCHURE. SUPPORTS COLOR, KERMIT WORKS WITH PC’S AND COMPATIBLES. EASY TO USE WITH OFF THE SHELF 
PROTOCOL, Y MODEM BATCH, VT100 EMULATION, REMOTE OPERATION, PRINTERS, MOUSES, VIDEO CARDS, ETC. COMES COMPLETE WITH A HUGE 
ON LINE HELP, ETC. RUNS UNDER PC/MS DOS. 180 PAGE MANUAL & BINDER. COMPONENT DATABASE. SUPPORTS MONOCHROME, COLOR, OR EVEN EGA. FREE 

MEX-PACK LIST IS $99.95 — SPECIAL $69.95 BROCHURE AND DEMO DISKETTE ON REQUEST. LIST $500 — SPECIAL $396.15 










PC/XT AT 
ENHANCED GRAPHICS ADAPTER 


NEW! 
PC/XT EPROM 
PROGRAMMER 


$199 


* LATEST DESIGN * PROGRAMS UP TO 4 DEVICES AT ONE TIME * FEATURES 
EASY TO USE MENU DRIVEN SOFTWARE THAT RUNS UNDER PC OR MS-DOS. 
* USES AN INTELLIGENT PROGRAMMING ALGORITHM FOR SUPER FAST 
(8X) EPROM BURNING. x THIS PLUG-IN BOARD ATTACHES TO AN EXTERNAL 
MINI CHASSIS CONTAINING 4 TEXTOOL Z.I.F. SOCKETS. * NO PERSONALITY 
MODULES REQUIRED x AUTOMATIC VPP SELECTION: 12.5V, 21V, OR 25V. 
* EPROM DATA CAN ALSO BE LOADED FROM OR SAVED TO A DISKETTE. 
* PROGRAMMING SOFTWARE SUPPORTS: 2716, 2732, 2732A, 2764, 2764A, 
27128, 27128A, 27256, 27256A, 27512, AND 27512A. x ASSEMBLED AND TESTED, 
BURNED. IN WITH MANUAL. $199 WITH SOFTWARE. | 


MICROTEK 2 M.B. EXPANDED MEMORY BOARD $195 (O. K) 
MEETS LOTUS/INTEL/MICROSOFT SPEC. FOR EXPANDED MEMORY. FOR USE AS 
EXPANDED MEMORY (EMS), ELECTRONIC DISK, OR PRINT SPOOLER. WITH A SUPERB 
MANUAL AND INSTALLATION SOFTWARE. FOR PC/XT OR MOST COMPATIBLES. FOR 2 *x USES CHIPS & TECH. VLSI 4 CHIP SET. 
MEGABYTES OF 150 NS RAM (72 DEVICES) INSTALLED AND BURNED IN ADD $225. *x FIELD PROVEN BIOS. 


ZRT-80 CRT TERMINAL BOARD! THE NEW 65/9028 VT 


A LOW COST Z-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 























* 3 CARDS IN ONE! 

* 100% IBM COMPATIBLE. 

* COMPATIBLE WITH IBM EGA, COLOR GRAPHICS ADAPTER, OR 
MONOCHROME ADAPTER. 

* 256K VIDEO RAM! (4 TIMES MORE THAN IBM!) 

* DUAL FREQUENCY OUTPUT FOR EITHER EGA OR 
STANDARD RGB COLOR MONITORS. 

* PERFECT MATE FOR NEC MULTISYNC COLOR MONITOR! 

* LIGHT PEN INPUT. 

* FULL 16 COLORS. : 

* MFG. BY D.F.I., THE PREMIER FAR-EAST ADD-ON BOARD MAKER. 

*x A SUPERIOR BOARD AT ABOUT 1/3 THE COST OF IBM EGA! 

* ASSEMBLED, TESTED, AND BURNED IN. WITH MANUAL. 





























ASCII KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TOMAKEA ANSI VIDEO TERMINAL BOARD! 
COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR * FROM LINGER ENTERPRISES « 
eee PE ee ae ee A second generation, low cost, high performance, mini sized, single board 


for making your own RS232 Video Terminal. Use as a computer console or 
with a MODEM for hook up to any of the telephone-line computer services. 


FEATURES: MICRO SIZE! 










FEATURES: 
* Uses a Z80A and 6845 CRT 
Controller for powerful video 


capabilities. 

* RS232 at 16 BAUD Rates from 75 x Uses the new SMC 9028 Video 
to 19,200. Controller Chip coupled with a 

* 24 x 80 standard format (60 Hz). 6502A CPU. 

* Optional formats from 24 x 80 x RS-232 at 16 Baud Rates from 50 
(50 Hz) to 64 lines x 96 characters to 19,200 








(60 Hz). * On board printer port! 
* Higher density formats require up to * e Poe yen te pe ity Hz). . 

3 additional 2K x 8 6116 RAMS. * For 15,7 z ( oriz.) monitors. 
* Uses N.S. INS 8250 BAUD Rate Gen. * Coe cree scr ADM3A, 

Ty 4 -04- 

* a Forni eiinator Matias which * Wide and thin-line graphics. 

are Dip Switch selectable. These 5 95 A&T * bile op Aogiacacntr aah black back- ue 

ee eer Cae #Z7RT-80 ADD * Character Attributes: De-Inten, $ 95 
« Composite or Split Video : $50 Inverse, Underline and Blank. 

alii (COMPLETE KIT, 2K VIDEO RAM) x Low Power: 5VDC @.7A, ~ 12VDC (Full Kit) 

* Any polarity of video or sync. ’ @ 20MA ADD $40 FOR A&T 
* ee ae che BLANK PCB WITH 2716 *x Mini size: 6.5 X 5 inches. 
Ya e vats eee CHAR. ROM. 2732 MON. ROM * Composite or split video. SOURCE DISKETTE: 
* Upper & lower case with descenders. : . 7 «. § % 8 Dot Matrix charactors PC/XT FORMAT 
ft Lao nn earte eer: $4995 (U/L case) with descenders. 5% IN. $15 
* Requires Par. ASCII keyboard. « Answer back capability. NEW OPTION 
FOR 8 IN. SOURCE DISK SOURCE DISKETTE - ADD $10 * Battery backed up status memory. 

(CP/M COMPATIBLE) SET OF 2 CRYSTALS - ADD $7.50 * For ASCII parallel keyboard. PC/XT keyboard ROM. Allows use of 

ADD $10 IBM style keyboard. $15 











TERMS: Add $3.00 postage. Orders under $15add 75¢ handling. NoC.O.D. 
We accept Visa and MasterCharge. Tex. Res. add 5-1/8% Tax. Foreign 
orders (except Canada) add 20% P & H. Orders over $50 add 85¢ for 
insurance. Prices subject to change without notice. 


Digital Research Computers 


P.O. BOX 381450 « DUNCANVILLE, TX 75138 + (214) 225-2309 






H DIGITAL RESEARCH INC. (CALIF.) THE SUPPLIERS OF CPM SOFTWARE 
* _.) *IBM TM OF INT. BUS. MACHINES. WE ARE NOT ASSOCIATED WIT 
A OF een Mere mrye se Circle no. 87 on reader service card. 
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Listing One (Listing continued, text begins on page 42.) 


move 


_FixRatio 


move.1 


sf 
tst 
bol 
st 
lsr 


@1 clr.1 
move 
move 


_FixRatio 


move.1 


swap 
tst.b 


bpl 
1lsl 


@2 and.1l 
add. 


RTS 
Cont inue 


ely 
move.1 
move 


Do_Next_Row 
clr 


move 
move 
_MoveTo 


st 
move.1 
BSR 


move 
add 
move 
anp 


beaMI 
move 
BRA 


@CheckDLOG 


BSR 
bEQ.s 
BSR 
bEQ.s 


DS, -(sp) ; pts per side 

? = length ( integer ) / point 
(sp)+, D4 ; save the ( int ) fraction 
D6 7 positive fraction 
D3 
@1 
D6 7 negative fraction 
#1, D3 7 zero the hi bit so FixRatio doesn't 

7; think the number is Negative 

~ (sp) 
D3, -(sp) ; side ( fract part ) 
DS, ~(sp) ; pts per side 

+ = length ( fract ) / point 
(sp)+, D3 
D3 7 move the ‘integer’ part of the'fraction' 
D6 7 back into the fractional lo word 
@2 
#1, D3 7 restore the ‘negative’ hi bit 
#SFFFF, D3 
D3, D4 


Row_Count (A5) 
Y_Origin(AS5), C_Imag(A5) 
Y_Start (a5), Y Current (A5) 


Col_ Count (AS) 


#X_Screen Offset, -(sp) 3; For next row 

Y_ Current (AS), -(sp) 7 Move absolute to start 
First Pt (AS) z 1st_Point := TRUE; 
X_Origin (AS), C_Real (AS) ; for start of new row 
Do Points 


Row Count (A5), DO 
Pix Per Pt(A5), DO 
DO, Row Count (AS) 
Num_Rows (A5), DO 


@CheckDLOG 
#0, do 
@Return_To Mainline 


Get_Next_Event 
@Setup Next_Row 
Was Dialog Event 
@Setup Next_Row 


@Return_To Mainline 


RTS 


@Setup_Next_Row 


move Pix Per Pt(A5), DO 
sub DO, Y_Current (AS) 
move. 1 C_imag(A5), DO 7; set up Y for next row 
add.1l Del_C Imag(A5), DO 
move.1] DO, C_Imag (AS) 
BRA.S Do_Next_Row 
Do Points 
move.1 C_Real(A5), DS # Initialize 2 = C for new point 
move.1 C_Imag(A5), D6 
move #1, Iter Count (A5) ; Do up to Counts(A5) times per Point 
lea Patterns, A4 7 veset Pattern Ptr 
Iterate 
move.1 DS, D3 ; Save Current Z Real 
move.1 D6, D4 7; Save Current Z Imag 
Fix Squared D3 # 2 _Real*2 
Fix Squared D4 z 2 Imag*2 
move.1 D4, D7 
add.1 D3, D7 ¢ Size*2 = 2 Real*2 + 2 Imag*2 
@Test_ Size 
move Iter Count (A5), DO 
cmp. 1 #$40000, D7 7; Size*2 > 4 means TIME TO PLOT 
BHI.s @Plot 
@Test_Count 
add #1, DO 
move DO, Iter Count (A5) 
emp Counts (A5), DO 
BPL.s @Plot 
@Get_New 2 
sub.1 D4, D3 z Z_Real = Z Real*2 - 2 Imag%*2 
elr.1 — (sp) 
move.1 DS, -—(sp) 
move.l D6, -—(sp) 
_FixMul 
oe dah D6 7 Z Real * Z Imag 
acd. ' :; Z_Imag = 2 * 2 Real * ZI 
move. 1 D3, DS : 7 eal re ee 








add.1 C Real (A5), DS 
add.1 C_Imag(A5), D6 
BRA.S Iterate 
@Plot 
BSR Get_Pattern ; A4 = Ptr to New Pattern 
tst.b First_Pt (AS) ; IF NOT 1st Point 
BEQ @Test_ Mouse ;  Test_Mouse { see if batching } 
sf First Pt (AS) ; ELSE 
; 1st_Point = FALSE; 
move.1 A4, A2 ; Old_Pat := New Pat; 
BRA @Set_Pattern 
@Test_Mouse 
tst.b Mouse Down (A5) ; IF NOT Batch Plot 
BNE.S @Draw Line ; Draw_Line ( Old Pat ) 
amp.1 A2, A4 3; ELSE 
BNE @Draw_Line ; IF NOT ( New _Pat = Old Pat ) 
; Draw Line ( Old Pat ) 
; ELSE 
; Init_Line Amount; 
add Pix Per Pt(A5), A3; Do Next Pt; 
BRA @skip Draw 
@Draw Line 
move A3, -(sp) 
move #0, —(sp) 
_Line ; Draw_Line ( Old Pat ) 


@Set_Pattern 


move.1l 
_PenPat 


move.1 
move 


@Skip Draw 
move 


add 
move 


cmp 
BMI.s 


A4, -(sp) 7 set the New Pattern 


A4, A2 7 Old Pat := New Pat 
Pix Per Pt(A5), A3 


Col Count (A5), DO 
Pix Per Pt(A5), DO 
DO, Col Count (A5) 


Num Cols (A5), DO 
@Update 2 Real 


we've finished the Line - if we need to draw to finish up 


; do it here 


emp 
BEQ 


move 
move 
_Line 


@rts RTS 


@Update 2 Real 


Pix Per Pt(A5), A3 


@rts 3; we've just drawn 
A3, -(sp) 7 else draw what we didn't 
#0, — (sp) 


move.1 C Real (AS), DO 
add.1l Del C Real(A5), DO 
move.1 DO, C Real (A5) 
BRA Do_Points 
Get_Pattern # Point to a New PenPat, according to which 
; Range the Iter Count ( DO ) falls in 
anp 0+Counts (A5), DO 7; >= Black 
BPL.s @0 
add #8, A4 
anp 2+Counts (A5), DO 7 >= DarkGray 
BPL.s @0 
add #8, A4 
cnp 4+Counts (A5), DO 7; >= LtGray 
BPL.s @O 
add #8, A4 
cmp 6+Counts (A5), DO ; >= White 
BPL.s @O 
add #8, A4 7 < Gray 
@0 RTS 
Open_Params DLOG 
eirsi — (sp) 7 space for funct result 
move #100, -(sp) 
pea ParamsDLOGStorage 
move.1l #-1, -(sp) 7 in front of everything 
_GetNewDialog 
move.1 (sp)+, dO 
RTS 


Set_Radio Buttons 
move 
tst.b 


BPL 
move 


#HiLite On, D3 


Radio 1 State (A5) 
@2 
#Radio Item.1, D4 


(continued on page 80) 
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the dBx™ translator 


daBx produces quality C direct 
from GBASE II or III programs. 


Move dBASE programs to UNIX or other machines. 
Improve program speed and reliability. 

Support multi-user/network applications. 

With power guidebook of conversion hints. 


Includes full screen handler and uses your 
current C database manager. 


May be used to move existing programs or help 
GBASE programmers learn C easily. 


For MSDOS, PCDOS, UNIX, XENIX, Macintosh, AMIGA. 
(Uses ANSISYS driver on MSDOS, CURSES under UNIX) 


Priced from $350, also available from distributors. 


dBx is a trademark of Desktop A\i 


4720 Post Road E., Westport, CT 06880 MCIMAIL « DESKTOPAI 
Phone « 203-255 «3400 Telex « 6502972226MCI 
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‘atetetatetetereeceneeeceseeeceeeeeeeeeee, 
Seca eseceesececeeeeceees 


MicroPlot, innovator of creative PC software programs is i to 
announce PlotDev, the alternative to virtual device drivers and 
graphics tool kits for PC-DOS graphics programs. 








e Installable PC-DOS device e Provides user with all the 
driver adds graphics command intelligent alpha terminal 
capabilities to any program commands of.a DEC. VT-100 
language 

e Provides user with the — 
© Allows full screen PC-DOS commands of the Tektron 
command editing by unsticking 4010/4014 and 4027 ow 
the cursor terminals 








e Supports most popular graelcs e And much more ... 
boards and provides a built-in 








graphics screen dump for 


printers Site license and 


educational 
discounts available. 











e Non-interfering with memory 
resident or application programs 





For a detailed PlotDev brochure or for ordering 
information call toll free 1-800-654-1217. Visa and 
MasterCard welcome. 


MicroPlot 


659-H Park Meadow Road Westerville, Ohio 43081 (614) 882-4786 
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C Bricklin Run 


A Primer for Modern Times, or How to Use C-scape to 
Turn Dan Bricklin’s Demo Screens into C Code: 


Jane writes software. Dick is Jane’s client. Dick 
wants his software yesterday. Jane uses Dan Bricklin’s 
Demo Program to prototype Dick’s software. That makes 
Dick and Jane happy. 


Now Dick wants the real thing. Jane uses C-scape’s 
demoagc utility to turn Bricklin’s screens into C code 
with text, menus, input fields, and colors. Next Jane 
links with C-scape’s library to add scrolling and type 
support. 


Jane’s program runs. Dick changes specs. Jane fixes 
the code easily with C-scape. See Dick smile. Dick is one 
happy client. 


Look at C-scape. C Bricklin run. See productivity soar. 


That's right. Compilable C code created directly from 
each and every screen you produce using Dan 
Bricklin’s Demo Program. And the procedure is as 
simple as Dick and Jane. Make C-scape your primer. 


© scrolling © colors 


full type support © completely definable 


fully definable Kes 


validation full screen I/O support 


fields, menus, flexible, easy to learn 
prompts, and text and use 


Lotus-like and source code included 
pull-down menus 


30-day guarantee: Try C-scape for 30 days and see how it simplifies your development process. Following registration 
you'll get full source code and support. No run-time license, no royalties. We’re developers, too. We know your needs. 
$149.00 C-scape (Lattice 3.0/Microsoft 3.0; others call) 
$219.00 C-scape with Dan Bricklin’s Demo Program 


Please add $3.00 for shipping. Massachusetts orders please include 5% sales tax. 


Another Key to Freedom, from 
Oakland Group, Inc. ©) 


675 Massachusetts Avenue, Cambridge, MA 02139 


For orders and information, call: 
617-491-7311 or 


800-233-3733 
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Listing One (Listing continued, text begins on page 42.) 









BRA HiLite Control cmp #Radio Item 3, DO 
bHI ModalDLOG 7 no —- wait for ‘OK' or ‘Quit' 
@2 tst.b Radio 2 State (AS) BSR Toggle Radio Buttons 7 yes 
BPL et BRA ModalDIOG ~— ; and wait for 'OK' or ‘Quit' 
move #Radio Item 2, D4 
BRA’ HiLite Control 






Set_Exit Flag 






@3 move #Radio Item 3, D4 
BRA HiLite Control move #-1, DO 
RTS 










HiLite Control 





Toggle Radio Buttons 









pea ParamsDLOGStorage 

move D4, -(sp) ; ItemNumber move DO, DS # (DO gets trashed by ROM calls) 
pea ItemType move #HiLite Off, D3 = 

pea ItemHandle move #Radio Item 1, D4 ; turn off Everything 

pea ItemBox BSR HiLite Control 

_GetDItem move #Radio Item 2, D4 

move.1] ItemHandle, —(sp) BSR HiLite Control 

move D3, —-(sp) move #Radio Item 3, D4 

_SetctlValue BSR HiLite Control 

RTS sf Radio 1 State(A5) ; Flag them as OFF 











sf Radio 2 State (A5) 
sf Radio 3 State (A5) 
Get Param Items 
oe iy move #HiLite On, D3 7 turn ON the Radio Item 
pea ParamsDLOGStorage ; Select ‘X_Org’ Parameter move DS, D4 7; that was Clicked 
move #X_Org Item, -(sp) ; for Quick Replacement BSR HiLite Control 
move #0, —(sp) cmp #Radio Item 1, DS ; and Flag the apt Item 
move #32767, —(sp) BNE @2 Sa on : as ON 
_SeliIText st Radio 1 State (A5) 






RTS 





ModalDLOG 







@2 cmp #Radio Item 2, DS 
clr.1 -(sp) 7 no filterProc BNE Re Sap eee 
pea TtemHit st Radio 2 State (A5) 






_ModalDialog RTS 












move Itemiit, DO @3 st Radio 3 State (AS) 
BEQ Moda1DLOG 

cmp #1, DO 7 Clicked 'OK' = We're Done Dialoging ? 

BEQ Validate Items 7 yes — Validate & Convert numeric entries 

cmp #2, DO 7 Clicked ‘Quit’ ? 

BEQ Set_ Exit Flag z yes — tell MainLine 

cmp #Radio Item 1, DO ; Clicked a Radio Button for penSize ? 

beMI ModalDLOG ; no - wait for 'OK' or ‘Quit’ 






(continued on page 82) 






*** DROGRAM WITH POWER *** 
PC/POWER ™ 


Full Screen Editor for MS-DOS (PC-DOS) 


Looking for an Ultra-Powerful Full-Screen editor for 
your MS-DOS or PC-DOS system? Are you looking for 
an editor FULLY COMPATIBLE with the UNIX*VI 
editor?Are you looking for an editor which not only runs 
on IBM-PC’s and compatibles, but ANY MS-DOS 
system? Are you looking for an editor which provides 


Application Development 
and Management System 


power and flexibility for both programming and text 
editing? If youare, then look no further because PC/VI 
IS HERE! 


The following is only a hint of the power behind PC/VI: 
English-like syntax in command mode, mnemonic control 
sequences in visual mode; full undo capability; deletions, 
changes and cursor positioning on character, word, line, 
sentence, paragraph or global basis; editing of files larger 
than available memory; powerful pattern matching capabil- 
ity for searches and substitutions; location marking; 
joining multiple lines; auto-indentation; word abbrevia- 
tions and MUCH, MUCH MORE! 


The PC/VI editor is available for IBM-PC’s and generic 


MS-DOS based. systems for only $149. For more 
information call or write: 


Custom Software Systems 
P.O. Box 678 
Natick, MA 01760 


Runs on all 100% PC compatibles! 


Supports applications in a variety of languages 

- Including C, PASCAL, BASIC and Assembler 

- Even different languages in same application 
Screen painter - language and program independent screens 
Allows programs to pop-up wie latiection windows 
Builds indexes of applications and programs for easy use 
Supplies EXEC function to pass control between programs 

- One language can pass control to another 

- One language can even pass data to another 

- Inter-language considerations handled by PC/POWER 
Run-time supports control of multiple applications with: 

~ Run-time start-up screen (customizable) 

- Pop-up application menu 
integrates existing programs into an application 
Useful development applications included as samples 


WITH RUNTIME MANAGER - NO ROYALTIES! 


$95.00 inc. Shipping and Handling 


8 2 
617-653-2555 ORDERS & INQUIRIES (800) 628-2828 ext. 712 
The UNIX community has been using the VI editor for 


years. Now you can run an implementation of the same Beacon Street Software, Inc. 

editor under MS-DOS. Don’t miss out on the power of P.O. Box 216 

PC/VI! code Be 
Beacon Hill 


Boston, MA 02133 





i ! 
*UNIX is a trademark of AT&T Bell Laboratories. ORDER NOW! 
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80 
Dr. Dobb’s Journal, November 1986 


- VEDPLUS.TXT 
WINDOW 2 


VEDIT PLUS is an advanced editor that bidlist ( infile ) 
makes your program development and FILE *infile; 
word processing as efficient and { 
easy as possible. VEDIT PLUS is 

simple enough to learn and use for 

the novice, fet has the speed, 

flexibility and power to satisfy the 

most demanding computer professional. 
VEDIT PLUS is particularly suited for Ra) 
writing all types of programs and 


TEXT LINE 6 COL: 12 
WINDOW 1 


register |; 


lengthy documents such as reports or Ta 
manuscripts. 


This shows how VEDIT PLUS can perform 
windowing. One window is used for 

word processing, a second for program 
development, and the third for 
commands. 


WINDOW $ 


VPLUSPC .COM INSTALL .EXE LIHARD 
LIGHT .COM ENVI .COM 
VEDIT INI RAM2 .DIC 
LIGHT -HLP RAM3 .DIC 


-BAT T 

-NUM DISK 
BM THES 
-EXC INSTALL 


For over six years VEDIT has been the choice of 
professionals who demand the most powerful edit- 
ing software available. CompuView has once again 
enhanced this power with the latest VEDIT PLUS - 
you can now open windows to simultaneously edit 
several files, access editing functions with pop-up 
menus, use keystroke macros to speed editing and 
run other programs within VEDIT PLUS. 


Whether your needs are program development, 
technical writing or word processing, VEDIT PLUS 
is your answer. VEDIT PLUS is simple enough to 
learn for the novice, yet has the speed, flexibility and 
power to satisfy the most demanding computer pro- 
fessional. Its powerful macro programming lan- 
guage helps you eliminate repetitive editing tasks. 


If you take your editing seriously, you need VEDIT 
PLUS. With over 40,000 users, you can depend on 
VEDIT PLUS to perform consistently and reliably. As 
have GE, EDS, U.S. Navy, GM, Sperry and many 
others. VEDIT PLUS supports color windows on the 
IBM CGA & EGA and even windows on most CRT 
terminals. Available for MS-DOS, PCDOS, CP/M-86 
and CP/M-80. List price $185. 


‘To sum things up, VEDIT PLUS is a small, fast, 
sophisticated editor with a wealth of features and 
a good macro language. It offers many rewards 
for the dedicated programmer.” 

Computer Language, Chris Wolf, Scott Lewis, 
Mark Gayman 6/86 


“VEDIT PLUS is a wholly remarkable program: 
blindingly fast, extremely powerful, and highly 
flexible.” 

Profiles Magazine, Robert Lavenda 4/86 


VEDIT and CompuView are registered trademarks of CompuView Products, Inc. MS- 


DOS is a registered trademark of Microsoft. CP/M is a registered trademark of Digital 
Research. WordStar is a registered trademark of MicroPro. 


Circle no. 122 on reader service card. 


struct node “ptr; 


for (i-0; i(termlim; i++) { 
ptr = malloc ( NODESIZE ): 


head = tail = ptr; 


tail -)next=ptr; 
tail=ptr: 


tail-)next = NULL; 
load _str( &(tail- )nheader), 


return ( termlim : 








VEDIT 
PLUS 


MULTIPLE 
WINDOWS 


POP-UP 
MENUS 


KEYSTROKE 
MACROS 


EXECUTE DOS 
PROGRAMS 





INSERT 


VEDIT PLUS FEATURES 


e Simultaneously edit up to 37 files of unlimited size. 

e Split the screen into variable sized windows. 

e ‘Virtual’ disk buffering simplifies editing of large files. 

e Memory management supports up to 640K. 

e Execute DOS commands or other programs. 

e MS-DOS pathname and CP/M user number support. 

e Horizontal scrolling - edit long lines. 

e Flexible ‘cut and paste’ with 36 text registers. 

e Customization - determine your own keyboard layout, create 
your own editing functions, support any screen size, any CRT. 

e Optimized for IBM PC/XT/AT. Also 132 column & up to 70 lines. 


EASY TO USE 


e Interactive on-line help is user changeable and expandable. 
e On-line integer calculator (also algebraic expressions). 

e Single key search and global or selective replace. 

e Pop-up menus for easy access to many editing functions. 

e Keystroke macros speed editing, ‘hot keys’ for menu functions. 


FOR PROGRAMMERS 


e Automatic Indent/Undent for ‘C’, PL/I or PASCAL. 

e Match/check nested parentheses, i.e. ‘{’ and ‘}’ for ‘C’. 

e Automatic conversion to upper case for assembly language 
labels, opcodes, operands with comments unchanged. 

e Optional 8080 to 8086 source code translator. 


FOR WRITERS 


e Word Wrap and paragraph formatting at adjustabie margins. 
e Right margin justification. 

e Support foreign, graphic and special characters. 

e Convert WordStar and mainframe files. 

e Print any portion of file; separate printer margins. 


MACRO PROGRAMMING LANGUAGE 


e ‘If-then-else’, looping, testing, branching, user prompts key- 
board input, 17 bit algebraic expressions, variables. 

e CRT emulation within windows, Forms entry. 

e Simplifies complex text processing, formatting, conversions 
and translations. 

e Complete TECO capability. 

e Free macros: e Full screen file compare/merge e Sort mailing 
lists e Print Formatter e Main menu 


CompuView 


1955 Pauline Bivd., Ann Arbor, MI 48103 (313) 996-1299, TELEX 701821 


MANDELBROT PROGRAM 


Listing One (Listing continued, text begins on page 42.) 





Validate Items _SelectWindow zs so DialogSelect works 
move #0, D3 7 Count - 1 RTS 
lea Count Strings, A2 
move #Count_Item 1, D4 ; Item # of lst Count (MaxCount) 


Draw Patterns 


@O BSR Get Item Text # get the next Item Text 
BSR Convert 2 Int ; Convert theString to Integer clr ~ (sp) * Save Digit Char Width 
move $#°1°, —(sp) z in D4 for Right-Justifying 
add #10, A2 # point to next String _CharWidth 
add #1, D4 7 and its Item Number move (sp)+, D4 
add #1, D3 7 for Next Count Range 
cmp #4, D3 z Done all 4 Count Ranges ? move #Count_ Str Y, Legend Y Pos(A5) 
BMI @0 7 not yet move #0, D3 
lea Count_Strings, A3 ; Addr of lst Count Str 
RTS ; Return to MainLine 
@Draw_Counts 
Get_Item Text 7 A2 points to the String move #Count Str X, —(sp) 
move Legend Y Pos(A5), —(sp) 
pea ParamsDLOGStorage ; DLOG Ptr _MoveTo 
move D4, —(sp) z Item Number : 
pea ItemType 7 Not Used anp.b #Max Count Digits, (A3) 7 Truncate STRs if too long 
pea TItemHandle z passed to following ROM call EMI @0 
pea ItemBox ; Not Used move.b #Max Count Digits, (A3) 
_GetDItem 
@0 elr.l DO : Right-Justify Count Strings 
move.1 ItemHandle, —(sp) move #Max Count Digits, DO ~ 
move.1 A2, —(sp) clr Dl 
_Get IText move.b (A3), Dl ; Byte Count for String 
sub Dl, DO + Del Digits = Max Digits - Actual Digits 
RTS mulu D4, DO z times Digit Char Width 
move.1 DO, -(sp) 7 = amount to space over 
_Move 7 Relative Move 
Convert 2 Int 
om move.1 A3, - (sp) 
move.1 A2, AO _DrawString ; Write the Count Range Str 
move #StringToNum, -(sp) 
_Pack7 7 Convert Count to Numeric move.1 (AS), A2 7 @ Vars Ptr 
move D3, DS 7; Which Count Range ? pea Gray (A2) 
add DS, DS 7 Words => Bytes for Offset _PenPat 
lea Counts (A5), AO move.1l #SFFFBOO06, -(sp) ; Move Up & Over a Bit 
move DO, O(AO, DS) 7 Index & Save the Count _Move 7 Draw a Short Gray Line to 
7 ( Ignore the Hi Byte ) move.1 #SO000000D, -(sp) ; separate the Patt Rects 
RTS Line 
_PenNormal ; Back to Black for Next String 
Save Param Items move Legend Y Pos{A5), DO 7 move down for Next String 
= em add #Pattern Spacing, DO 
move #0, D3 ; D3 not used here move DO, Legend Y Pos (A5) 
move #X_Org Item, D4 add. 1 #Count_Str Size, A3; point to Next String 
lea X Org Str, A2 z Following routine deposits 
BSR Get_Item Text : DITL text in (A2) add #1, D3 
anp #4, D3 
7 A2 (input) points to Decimal DITL String EMI @Draw_ Counts 
7 DO (returned) contains Fixed-Point Conversion 
move #Pattern Y, Legend Y Pos(A5) 
BSR Convert 2 Fixed Point 7 XREF routine to convert from move #0, D3 
move.l DO, X_Origin{AS) ; STR format to Fixed-Point lea Patterns, A3 
7 format via SANE intermediary 
move #Y Org Item, D4 @Draw Patterns 
lea Y Org Str, A2 
BSR Get_Item Text move Legend _Y Pos(A5), DO 7 Top 
BSR Convert _2 Fixed Point swap DO 
move.l DO, Y Origin (A5) move #Pattern X, DO 7 left 
move #Side Length Item, D4 lea TempRect, AO 
lea Side Length, A2 move.1 DO, (A0)+ 7 TopLeft 
BSR Get_Item Text add.1 #$00130013, DO s19-X 19 
BSR Convert 2 Fixed Point move.1 DO, (AO) 7 BottomRight 
move.l DO, Y Side (AS) 
pea TempRect 
RTS move.1 (sp), — (sp) 7 push 2 copies of Rect Addr 
move.1 (sp), - (sp) 
_FrameRect 
Draw Org Strings move.l1 § #$00010001, —-(sp) 
move #X Org Scr X, -(sp) _insetRect 
move #X Org Scr Y, D3 move.1 A3, —(sp) 
move D3, - (Sp) Tc _FillRect 
m= "% ’ move Legend Y Pos({A5), DO 7 Move down for Next String 
DrawString add #Pattern Spacing, DO 
pea X Org Str move DO, Legend Y Pos (A5) 
DrawString add.1 #Pattern Size, A3 ; point to Next Pattern 
move #X Org Scr X, -(sp) add #1, D3 
add #0rg Spacing, D3 cmp #5, D3 
move D3, —(sp) BMI @Draw Patterns 
ae ig . RTS 
_DrawString 
tae Draw_Mandel Window 
move #X Org Scr X, -(sp) clr.1 ~ (sp) 
sa 224 ou move #101, —(sp) 
ee ey oe pea MandelWindStorage 
MoveTo move.1 #-1, -—(sp) 
pea 'S ' _GetNewWindow 
DrawString _SetPort 3 nuthin hops if we don't do this 
pea Side Length 
DrawString — lea MandelWindStorage, AO 
rs, pea portRect (AO) 
RTS _EraseRect 
RTS 
Open_Legend_DLOG 
clr.l - (sp) 3 space for Funct result InitManagers 
move #101, -(sp) 
pea LegendDLOGStorage pea -4 (AS) 
move.1 #-1, -(sp) z in front of everything _iInitGraf 
GetNewDialog _InitFonts 
ers 5 pe See ates (continued on page 84) 
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ECOSOFT HOLIDAY SPECIALS 


EVERYTHING FOR THE C PROGRAMMER 


If you know someone (perhaps yourself!) that wants 
to learn the C programming language, have we got a 
deal for you. For a limited time, you get: 


Eco-C88 C compiler $59.95 
CED Program editor 29.95 
Developer's Library Source Code 25.00 
ISAM File Handler 15.00 
Flexi-Graph Graphics Package 39.95 
Eco-Lib MSDOS Compatible Librarian 29.93 
Ecosoft Windowing Library 29.95 
C Programming Guide book (Que Corp) 20.00 
C Self Study Guide book (Que Corp) 17.00 
C Programmer's Library book (Que Corp) — 22.00 


Total: $288.75 
Holiday Special: $175.00 
Save Over: $110.00!!! 


The Holiday Special has everything you need for 
your C programming needs. Eco-C88 is a full K&R C 
compiler (less bit fields), with over 200 library 
functions, source code to our cc and mini-make 
utilities, and generates code rivaling compilers 
costing 10 times as much. You also get the source 
code to our library, an MSDOS-obj compatible 
librarian, one of the neatest graphics packages 
around, an easy-to-use windowing package plus a 
library of books to teach you the C language. An 
unbelievable package at an unbeatable price of 
only $175.00. 





Microstat Statistics Package 


Since 1977, Microstat has been one of the most 
popular statistics packages available for 
microcomputers. Just some of its features include: 


Data Managment Subsystem Multiple Regression 
Data transformations (with Stepwise) 
Convert External data Correlation Analysis 

(e.g. Lotus, Dbase 11. etc.) Time Series Analysis 
Descriptive Statistics Nonparametrics 
Hypothesis Testing Probability Distributions 
Crosstabs and Chi-Square Scatterplots 
ANOVA Factorials, Permutations 


Holiday Special: $250.00 


plus many other unique and easy-to-use features. 
Microstat is available for all MSDOS machines or 
any CP/M80 system using a Z80 CPU. 


The regular price is a bargain at $375.00. At the 
Holiday Special price of $250.00, it’s a steal! 


To take advantage of these special prices, we must have your order in our offices by Jan. 15, 1987. 
To order, call or write: 


1-800-952-0472 (for orders) 


Or 


1-317-255-6476 (tech. info.) 





EA 


Ecosoft Inc. 
6413 N. College Ave. 
Indianapolis, IN 46220 





Trademarks: Ecosoft: Microstat, Eco-C88; Microsoft: MSDOS: New Orleans General Data Services: Flexi-Graph 





Circle no. 89 on reader service card. 


MANDELBROT PROGRAM 
Listing One | Listing Two 


(Listing continued, text begins on page 42.) 





Listing Two 
_InitMenus ¢# < Str2FP.INC > Thur 10 April ‘86 h. katz 
clr.) — (sp) ; Mon 14 April '86 
_InitDialogs 
TEInit 
_InitCursor 7 the slings and arrows... ; This File is Linked with MandelZoom.ASM to provide String-to Floating-Point 
RTS # and Floating-Point to Fixed-Point Conversions for the 
+ X_Org, Y_Org, and Side Len DITL Parameters 
fo cette Constants ( in Code Space ) ------------------- ; At present only Single-Precision SANE Conversions are used 
MBarTitle dc.b *Dr. Dobb''s MandelZoom' 


A2 = ptr to the Decimal String on Input 
DO = the Fixed-Pt Number for Output 


-ALIGN 2 String Format 3 


MandelWindStorage dcb.b 156, 0 
ParamsDLOGStorage dcb.b 770,.'0 
LegendDLOGStorage dcb.b 170, 0 


Include MacTraps.D 
Include SANEMacs.Txt 


XDEF Convert 2 Fixed Point 
ItemHit dc.w 0 Pia ay 
ItemType dc.w 0 7 Not Used Sign EQU 0) 7 Byte Offsets in Decimal Record 
ItemHandle desl 0 ; passed from GetDItem to GetIText Exp EQU 2 
ItemBox dcb.1 26, 0 7 Not Used Sig EQU 4 
theString dcb.b 256, 0 
theDialog de.1 0 7 for dialogPtr returned by _IsDialogEvent FP_Sign EQU 31 ; Bit Offsets in Single-Precision Result 
FP Exp EQU 30 
X_Org Str dcb.b 10, 0 FP Sig EQU 22 
Y_Org Str dcb.b 10, 0 a 
Side Length dcb.b 10, 0 SP Exp Bias EQU 127 
DP Exp Bias EQU 1023 ; Code for Double-Precision not written 
Count Strings dcb.b 40, 0 # 4X 10 Bytes each Bey Steep 
TempRect dcb.1 2;, 0 7 holds the Patt Rects for the Legend 
TempSTR dcb.b 40, 0 Convert_2 Fixed Point 
Event Record 
What: dc.w 0 lea Temp String, a0 7 make a copy of incoming string 
Message: dce.l 0 move.b (a2), dd 7 its length 
When: dc.1 0 @0 move.b (a2)+, (a0)+ 
Where: dc.1l 0 DBRA do, @0 
Modifiers: dc.w 0 lea Temp String, a0 7 replace ptr to theString 
Patterns BSR Build Decimal Record 
det SFFFFFFFF ; 4 pixels per 4 = black 
dc.1 SPFFFFFFF pea Decimal Record 
pea FP_Num 
de.l SFFAAFFAA ; 3 pixels per 4 = dark gray FDEC2S 7 a SANE ‘trap’ 
dce.1l SFFAAFFAA : 
BSR Build Fixed Pt 
de.l SAAQOAAOO ; 1 pixel r 4 = light gray 
de.1 SAAOOAA00 : - RTS 7 to Mandelbrot 
de.l $00000000 ; 0 pixels per 4 = pure white 
dce.l $00000000 Build Fixed Pt 
gec} SAASSAASS ; 2 pixels per 4 = gray sf d2 7 assume Positive 
ac SAASSAASS lea FP_Num, a0 
move.1l (a0), dl 3; save the Exponent 
1sl.1 #1, dl 7 shift Sign into Carry 
jo ooe--------------- Variables ( off AS ) ---------------------- bec @1 7 was Positve 
st d2 7 flag as Negative 
X_Origin ds.l 1 ; Fixed-Pt conversions from : 
Y Origin ds.l 1 ; User Entries in Params DLOG @1 swap dl 7 move Exp into Low Word 
X Side ds.l 1 lsr.w #8, dl : shift Exp to Right 
Y_Side ds.1 1 7 Set to X_Side for now sub.b #SP_Exp Bias, dl ; unbias it 
Y Start ds 1 ; where Pen first Plots move.1 (a0), dod # move orig FP_Num into register 
* and.1 #SOO7FFFFF, dO ; clear Exp 
Num Rows ds 1 bset.1 #23, dO 3; add the leading '1' bit 
Num_Cols ds 1 tst.b d2 
Pix Per Pt ds 1 beg @2 7; num is + 
ee tee neg.1 do 
Counts ds.w 4 ; 4 INTEGERs dividing the Iterative : 
; Domain into 5 Ranges (& Patterns) @2 sub.b #7, dl + Neg(7-Exp) is amount to shift 
Iter Count ds.w 1 neg.b dl 
Row Count ds.w 1 lami @Shift left 
Col Count ds.w 1 asr.1l dl, do 
me bra @rts 
y_current ds.w 1 
x current ds.w 1 @Shift_ Left 
s neg.b dl ; Max Left Shift not checked for yet 
C Real ds.w 1 asl.l dl, do 
ifs ds.w 1 
C_imag ds.w 1 @rts RTS 
ds.w 1 
Z Real ds.w 1 Build Decimal Record 
ds.w 1 
Z imag ds.w ae 7 Strip the Sign Char 
= ds.w i. ; Strip the Decimal Pt and Decrease the Exponent Accordingly 
; Finally Strip Leading Zeroes 
Del _C Real ds.1l 1 
Del C_ imag ds.1 1 lea Decimal Record, al ; Zero the Record 
eS move.l #0, (al)+ 
Legend Y Pos ds.w 1 move.1] #0, (al)+ 
—_— move.1l #0, (al)+ 
Start_Time ds.l 1 move. 1 #0, (al)+ 
4 lea Decimal Record, al 
Radio 1 State ds.b 1 
Radio 2 State ds.b a. anp.b ¥°4° =] (a0) ; Strip the Plus Sign, if any 
Radio 3 State ds.b 1 BNE @Strip Minus Sign 
BSR Shift _Count_Byte 
First_Entry ds.b 1 bra Strip Decimal Pt 
Mouse Down ds.b 1 
First_Pt ds.b 1 @Strip Minus Sign 
END anp.b 3 ‘—! ’ z (a0) 
BNE Strip Decimal Pt 
move.b #1, Sign (al) 7 Mark Dec Rec Sign as Negative 
BSR Shift _Count_Byte 
Strip Decimal Pt 
move.b (a0), Sig{(al) # Move Count to Decimal Record 


End Listing One 


(continued on page 86) 
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dBASE and Pascal. 
‘Jogether at last. 


It had to happen. amortization, and internal rate 
They've been going together — of return. 
ao but always with a lot Plus youll be able to write 


of “glue, tape and hope’ procedures and store custom functions 
that kept it from being a pertect in the library, 
union. ‘Td order, or for more 
AnnouncinganewdBASE* information or the name of 
enhancement tool that includesan your nearest dealer, call the 
interface toTurbo Pascal" and a Ashton-Tate’ Publishing Group 
Pascal library. Soyoucancustom- at (800) 487-4829, Ext. 227 
ize the dBASE standard to your And live happily ever 
_ special business and scientilic! = alter. 
engine ering needs. —eee 
Array handling. 
Random Number 
Generation function. 
Variance and coellicient 
of variance. 
Standard deviation 
function. 
Skewness and sample 
kurtosis. 
| And business functions 
like present and future 
value, net present value, loan 


Poona dBASE, Ashton-Tate/Ashton-Tate.Turbo Pascal/Borland 





International. © 1986 Ashton-Tate. All rights reserved. 
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MANDELBROT PROGRAM 


Listing Two (Listing continued, text begins on page 42.) 


lea 1+Sig(al), a2 7 point to lst Digit @Loop 2 


add.1 #1, a0 7 points to lst Digit in Sre Str move.b (aO0)+, (al)+ ; shift Count + Digits to Left 
clr do DBRA dO, @loop 2 
move.b Sig(al), dO 7 length of String 
sub.b #1, dO 7 - 1 for DBRA @rts RTS 
sf dl ; Passed Decimal Pt Flag = FALSE 
@0 anp.b #*.", (a0) Shift Count Byte 
beq @Found Decimal Pt E Ms 
move.b (aO)+, (a2)+ : shift the digit to Decimal Rec sub.b #1, (a0) ; Length = Length - 1 
tst.b dl * are we past the Decimal Pt ? move.b (a0)+, (a0) ? move Count Byte over one 
beq @Test_ EOStr RTS 
sub #1, Exp (al) 
bra @Test_EOStr 


re ee rs re a na ee ee we ee oe ee we ee se es ee ee 


@Found Decimal Pt 


st dl FP Num dc.b S510 7 working space for both 
add. 1 #1, a0 * point past decimal point mr ; Single & Double Precision numbers 
sub.b #1, Sig(al) * Count := Count - 1 Decimal Record 
i dc.w 0 ; Sign 
@Test EOStr dc.w 0 ; Exp 
dcb.b L230 7: Sig 
DBRA do, @0 
Temp String dcb.b A2; 6 


Strip leading Zeroes 


lea Sig(al), a0 7 point @ Count Byte in END 

move.b (a0), do ; Decimal Record Sig Field 

sub.b #1, do 7 setup for DBRA 

ext .W do J 2 

sf dl ; No Leading Zeroes (yet) End Listing Two 
@Loop 1 

cmp.b #'O', 1 (a0) 

BNE @Test 4 Shift 7 Encountered a Signif Digit -> Done 

st dl 

BSR Shift Count _Byte 

DBRA dO, @Lloop 1 


@Test_4 Shift 


tst.b dl 7 Any Non-Significant Zeroes Found ? 
BEQ @rts Sino 

lea Sig(al), al 7 point to Sig Count Byte 

move.b (a0), dO ; a0 is Count Byte (wherever it is) 

ext ..w do 


A special offer to our readers . . . 


A SPECIAL &isr 
Call toll free 1-800-528-6050 ext. 4001. 
(R) Refer to product item #400. Or send this coupon with payment 
to Dr. Dobb’s Journal of Software Tools, 501 Galveston Dr., 


Redwood City, CA 94063.Please be sure to specify software 


I i AD p ie O 395 re format (MS/DOS, Macintosh, Apple Il). CA residents add ap- 
propriate sales tax. 


Cr O Mi Please specify format: 
. [IMS-DOS []Macintosh [_] Apple II 
DR un DOBB , S [ |] Payment enclosed (check or money order) 


JOURNAL [_] VISA [_] MasterCard 
OF SOFTWARE TOOLS | cos. al 


Signature 


Bre price: 
$199.95 complete 


























City 
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Listing Three 


* ManDLOG.R 
® 


® 


* Output file = 


Mandels:Mandel 2 
APPLKATZ 


* Input file = 


Include Mandels:Mandel 2.CodeR 


Type WIND 


’ 


41 6 336 404 
Visible NoGoAway 
0 

0 


Type DLOG 
7101 


no message 

30 415 330 500 
Visible NoGoAway 
1 

0 

101 


Type DITL 
2 


7101 


Button 
240 3 265 83 
New Plot 


Button 
270 3 295 83 
Quit 


Type DLOG 
, 100 


no message 

50 100 250 400 
Visible NoGoAway 
1 

0 

100 


Type DITL 
18 


e 


Button 
135 130 160 220 
Plot 


Button 
165 130 190 220 
Quit 


StaticText Disabled 
8 30 25 235 


Mon 31 April ‘86 h. katz 


33; Mandelbrot Window 


73 "Legend' 


3: docProc 


Dialog 


33; DBoxProc 


3: 2 Items 


zz: Item #1 


z: Item #2 


3: Parameters Dialog 


z3: Item #3 


Mandelbrot Parameters 


StaticText Disabled 
40 15 56 75 
x_Origin 


StaticText Disabled 
70 15 86 75 
Y_Origin 


StaticText Disabled 
100 15 116 75 
Side 


StaticText Disabled 
65 160 80 240 
Counts 


StaticText Disabled 
155 15 170 45 
Pen 


RadioButton 


135 50 150 105 
4 ee 


RadioButton 
155 $0 170 105 
2X2 


RadioButton 
175 50 190 105 
4x4 


EditText 
40 80 55 144 
-2.00 


zs; Item #4 


z; Item #5 


3: Item #6 


zz Item #7 


3: Item #8 


#3 Item #12 


3: @BoxProc 


z: 18 Items 


33 Item #1 


z: Item #2 


:3 Item #9 


z: Item #10 


Item #11 


ve 
ve 


X_Origin 
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EditText 
70 80 85 144 
-1.25 


Item #13 Y_Origin 


EditText 
100 80 115 144 
2.500 


Item #14 Side Length 


EditText ; Item #15 4 initial Defaults for 


Patt Ranges 
20 245 35 280 
32 


EditText 
50 245 65 280 
12 


Item #16 


EditText 
80 245 95 280 
6 


Item #17 


EditText 
110 245 125 280 
4 


Item #18 


TYPE ALRT 


oa 
40 100 180 400 
1 


7777 Default = Item 1 / Draw Box / 3 Beeps 
( ALL stages ) 
0 / 1 i - "38 


TYPE DITL 
2 


Button 
100 220 120 270 
OK 


StaticText Disabled 
40 30 60 290 
Numeric Digits Only 


End Listings 


Publication Quality 
Scientific Graphics 


Over 100 C routines make 
L scientific plotting easy 
0 linear, log, & polar plots 
t g IS bar charts & Smith charts 
contour plots with labels 
3-D curves, 3-—D surfaces 
4 curve types, 8 markers, errorbars 
14 fonts, font editor 
unlimited levels of SUB&’ scripts 


4096 x 3120 resolution in 16 colors 
on EGA, Tecmar, Sigma boards 


+ zoom, pan, window and merge plots 
+ high resolution printer dumps 


SOURCE INCLUDED for persona/ use only 
$350. Dema $8 


256k, IBM, AT&T, Corona PCs, DOS 2.xx, 3.xx 
Most boards, printers, and plotters supported 
Microsoft, Lattice, DeSmet, Aztec, C86 compilers 


7 = 


sin(xJeos{x—y] 


Polar Plot Test 


iu 
SN 
SA 

WZ 
‘ \ he 7 
WS Us 
“4 Tie 


a 


1418 
POS thet gma ate ponent 


90,0000 1,5708 


e 


x 


Scientific Endeavors Corporation 
Route 4, Box 7S Kingston, TN 37763 (615) 376-4146 
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Se Se Se Se Be 


DIGITAL DISSOLVE 


isting One (Text begins on page 48.) 


procedure DissBits (srcB, destB: bitMap; srcR, dstR: rect); external; 


mike morton 
release: 30 june 1986, version 5.3 
this version is formatted for the Lisa Workshop assembler 


differences from version 5.2: 
extraneous code removed from bitwidth routine 
introductory comments are much shorter 


HKKKKKKKK KEK KKK KKKEK KEKE KKKKKEKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* copyright 1984, 1985, 1986 by michael s. morton * 


RHRKKKKKKRKEKKKKEKKKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


DissBits is freeware. you're welcome to copy it, use it in programs, and 
to modify it, as long as you leave my name in it. i'd be interested in 
seeing your changes, especially if you find ways to make the central 
loops faster, or port it to other machines/languages. 


if, for some reason, you only have a hard copy of this and would like a 
source on a diskette, please contact: 

robert hafer 

the boston computer society 

one center plaza 

boston, mass. 02108 


include files: 
tlasm/graftypes —- definitions of “bitMap" and “rect" 
tlasm/quickmacs -- macros for quickdraw calls (e.g., _hidecursor) 


-nolist 

-include tlasm/graftypes 
-include tlasm/quickmacs 
-list 


Se Se Se Se 


definitions of the “ours" record: this structure, of which there are 
two copies in our stack frame, is a sort of bitmap: 


oRows -equ 0 7 (word) number of last row (first is 0) 
oCols -equ oRows+2 7 (word) number of last column (first is 0) 
olbits .equ oCols+2 7 (word) size of left margin within lst byte 
oStride .equ olbits+2 ; (word) stride in memory from row to row 

oBase -equ oStride+2 ; (long) base address of bitmap 

osize -equ oBaset+4 7 size, in bytes, of “ours" record 

: stack frame elements: 

srcOurs .equ -osize 7 (osize) our view of source bits 

dstOurs .equ srcOurs-—osize z (osize) our view of target bits 

sflast .equ dstOurs + relative address of last s.f. member 
sfsize .equ ~sflast 7 size of s.f. for LINK (must be EVEN!) 

7 parameter offsets from the stack frame pointer, A6: 

: last parameter is above return address and old s.f. 

dRptr -equ 4+4 7 “destination rectangle 

sRptr -equ dRptr+4 7 “source rectangle 

dBotr .equ sRptr+4 7 “destination bitMap 

sBptr .equ daBpt r+4 7 “source bitMap 

plast -equ sBpt r+4 7 address just past last parameter 

psize -equ plast-dRptr 7 size of parameters, in bytes 


Se Se Se 


entrance: set up a stack frame, save some registers, hide the cursor. 


-proc dissBits 7 main entry point 
link A6é, #—-sfsize 7 set up a stack frame 
movem.1 D3-D7/A2-A5,-(SP) 7 Save registers compiler may need 
_hidecurs zs don't let the cursor show for now 


=e Se Sa Se 


88 


convert source and destination bitmaps and rectangles to a format we prefer. 
we won't look at these parameters after this. 


move.l 
move.l 


sBptr (A6) , AO. 


# point to source bitMap 
SRptr(A6),Al 5 


and source rectangle 


(continued on page 90) 








Blaise Computing provides a broad range of pro- 
gramming tools for Pascal and C programmers, 
with libraries designed for serious software 
development. You get carefully crafted code 
that can be easily modified to grow with your 
changing needs. Our packages are shipped com- 
plete with comprehensive manuals, sample pro- 
grams and source code. 





$175.00 

NEW! Full spectrum of general-purpose utility 
functions; windows that can be stacked, re- 
moved, and accept user input; interrupt serv- 
ice routines for resident applications; screen 
handling including EGA 43-line text mode sup- 
port and direct screen access; string functions; 
and DOS file handling. 





$175.00 


Expanded string and screen handling; graphics 
routines; easy creation of program interfaces; 
memory management; general program con- 
trol; and DOS file support. 





$275.00 


Complete screen management; paint data entry 
screens; screens can be managed by your appli- 
cation program; block mode data entry or field- 


by-field control. Specify C or IBM/MS-Pascal. 





$175.00 


Full featured asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; baud rates up to 9600; modem 
control and XMODEM file transfer. Specify C or 
IBM/MS-Pascal. 





$99.95 

NEW! Expanded string support; extended 
screen and window management including EGA 
support; pop-up menus; memory management; 
execute any program from within Turbo Pascal; 
interrupt service routine support allowing you 
to write memory resident programs; schedul- 
able intervention code. 





$99.95 
Complete asynchronous communications 
library providing interrupt driven support for 


the COM ports; I/O buffers up to 64K; XON/ 


XOFF protocol; and baud rates up to 9600. 





$49.95 
NEW! Text formatter written especially for pro- 
grammers; flexible printer control; user-defined 
variables; index generation; and general macro 


facility. Crafted in Turbo Pascal. 








$95.00 
Program chaining executive. Chain one pro- 
gram from another even if the programs are in 
different languages. Shared data areas can be 
specified. 


ORDER TOLL-FREE 800-227-8087! 
he 





Pee LSS SM ENE, ee 
BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 
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|. My work is performed: 
A. for in-house use only. 
B. for other companies. 
C. for end users/retailers. 
D. in none of the above areas. 
li. My primary job function: 
A. Software Project Mgmt/Spvr 
B. Hardware Project Mgmt/Spvr 
C. Computer Consultant 
D. Corporate Consultant 
E. Other 


ill. My company department performs: 


A. software development. 

B. computer system integration. 
C. computer manufacturing. 

D. computer consulting. 

E. computer research 

F. none of the above. 


IV. This inquiry is for: 
A. a purchase within 1 month. 


B. a purchase within 1 to 6 months. 


C. product information only. 
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B. Approve/Recommend 
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NEW! FROM 
BLAISE 
COMPUTING 


Today’s programmers 
need more than yes- 
terday’s tools. Re- 
quirements such as 
removable windows 
and ‘‘sidekickable”’ 
pop-up utilities 
are changing 
the face of pro- 
gram design. 
You need to fil- 
ter interrupts so 
that other resi- 
dent programs 
still work. You 
need the ability to switch between 
multiple display pages and monitors. 
Today’s technical demands are almost 
endless, but C TOOLS PLUS gives you 
what you need. 





SOLID LIBRARY SUPPORT 


Blaise Computing offers you solid li- 
brary support that can meet all your 
demands and more. C TOOLS PLUS 
embodies the full spectrum of general- 
purpose utility functions that are criti- 
cal to today’s applications. 


Here’s just part of the PLUS 

in C TOOLS PLUS: 

@ C TOOLS and C TOOLS 2 compatibil- 
ity —two packages that receive rave 
reviews for quality, organization, usa- 
bility and documentation. 


@ FULL SOURCE CODE 





C Tools Plus’ 


For The Programmer 


Whose Alphabet 


Begins & Ends 
With “C” 


@ WINDOWS that are stackable, re- 
movable, that support word wrap and 
that can accept user input. 


@ INTERRUPT SERVICE ROUTINE 
support for truly flexible, robust and 
polite resident applications. 

@ MULTIPLE monitor and display 
support, including EGA 43-line mode. 

@ FAST DIRECT VIDEO ACCESS for 
efficiency that will not constrain good 
program design. 

@ DOCUMENTATION, TECHNICAL 
SUPPORT and attention 
to detail that have distin- © 


Also Available Are: 

C VIEW MANAGER — 
A kit for building data 
entry screens and menus. 
Begin by designing on- 
screen what the operator 
will see; call upon our 
library functions from 
your program to display 
the screens and retrieve 
the data. Just $275, in- 
cluding all library 
source code. 

C ASYNCH MAN- 
AGER — provides 
the crucial core 
of hardware in- 
terrupt support 
needed to build 
applications that 
communicate. It 
also includes the “KMODEM” file-transfer 
protocol and support for Haves-compatible 
modems. All source code ts included for $175. 
C TOOLS & C TOOLS 2— an indispensable 
combination still available at a low price of 
$175, including all source code. See re- 

am 
NY 





view in PC Tech Journal, 6/85. 


BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 


ORDER TOLL-FREE 800-227-8087! 


the PLUS 


5 ; ‘ d 
guished Blaise Computing ‘ bee aa xLUS. ( 
products over the years. : ee $10.00 for 
C TOOLS PLUS supports | yame 
the Microsoft (andIBM) 1 shipping Addres® 
3.00 and Lattice 3.00C | eae 
compilers and is just Ce 
$175.00. t-yighorMC* roe 
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REVISION CONTROL SYSTEM DIGITAL DISSOLVE 
phebi sh ie een hice fall tees Listi NG One (Listing continued, text begins on page 48.) 


e Super Fast! Updates (deltas) average 5-7 times faster 
than PC/IX (Unix) SCCS. TLIB updates libraries faster than lea srcOurs (A6) ,A2 


and our sourc 
many editors load and save files! = Seen 


=e Se 





bsr CONVERT convert to our format 
e LAN-compatible! Shared libraries with PC Network! 
e Synchronized control of multiple related source files. move.1 dBpt r (A6) , AO ; point to destination bitMap 
ack aRptr(A6),Al ; and rectangle 
e Use with floppies or hard disk. TLIB doesn’t need big aes . . 
temporary files, so you can maintain a 300K library on one 88 dstOurss (A6) , A2 ; and our structure 
360K diskette, with room to spare, even with TLIB itself on bsr CONVERT ; convert to our format 


the same disk. And libraries are more compact than with 
most other revision management systems. 


e Perfect for backup. Date and comments kept with each 
version. High data integrity because library data, once 


check that the rectangles match in size. 


=e Se Se 


written, is never modified. Libraries are only appended, to move.w srcOurs+oRows (A6) ,DO ; pick up the number of rows 
minimize the chance of data loss due to a power glitch or cmp.w dst Ours+oRows (A6) ,DO ; same number of rows? 
hardware crash. And TLIB isn’t copy-protected, either. bne ERROR 7 nope -- bag it 
e Free copy of Landon Dyer’s excellent public domain MAKE 
utility. With macros, full source code. For DOS & VAX/VMS. move.w srcOurs+oCols (A6) , DO ; check the number of columns 
PC/MS-DOS 2.x & 3.x Just $99.95 + $3 s/h Visa/MC cmp.wW dstOurs+oCols (A6) ,DO ; same number of columns, too? 
! bne ERROR 7 that's a bozo no-no 


BURTON SYSTEMS SOFTWARE 
P.O. Box 4156, Cary, NC 27511-4156 


(919) 469-3068 figure the bit-width needed to span the columns, and the rows. 








Se Se Se 


Circle no. 212 on reader service card. move.w srcOurs+oCols (A6) , DO 7 get count of columns 
ext.1 DO ; make it a longword 
bsr LOG2 ; figure bit-width 
move.w DO,D1 ; set aside that result 
beq SMALL 3 too small? wimp out and use copyBits 
move .w srcOurs+toRows (A6) ,DO 7 get count of rows 
ext.1 DO ; make it a longword 
bsr LOG2 ; again, find the bit-width 
tst.w DO ; is the result zero? 
beq SMALL ; if so, our algorithm will screw up 


PC-DOS program 


set up various constants we'll need in the in the innermost loop 


=e Se Be 


lets your PC 
[ move.1] #1,D5 ; set up... 
Read/Write/Format 1sl.1 D1,D5 7; ...the bit mask which is... 
over 275 formats sub.l —-#1,D5 ; ...bit-width (cols) 1's 
add.w D1,D0 ; find total bit-width (rows plus columns) 
- lea TABLE,AO ; point to the table of XOR masks 
><IEINDE RPA PCS moveq #0,D3 ; clear out D3 before we fill the low byte 
ietralhine move.b 0 (A0,D0O),D3 # grab the correct XOR mask in D3 


$79.95 + $5.00 S/H Sales Tax if CA. table is saved compactly, since no mask is wider than a byte. 


; ‘ : we have to unpack it so high-order bit of the DO-bit-wide field is on: 
Upgrades available from previous versions 


Se Se Se Be 


To Order Contact: UNPACK add.l D3, D3 


><ENQSEET” es 


1454 Sixth Street, Berkeley, CA 94710 rol.1 DO, D3 
(415) 525-3113 move.1  D3,D0 


Circle no. 225 on reader service card. 


shift left by one 
keep moving until top bit that's on is 
aligned at the top end 





=e Se Se 


now swing the top DO bits around to be 
bottom DO bits, the mask 
lst sequence element is the mask itself 


=e Se Be 





do all kinds of preparation: 


Se Se Se 


move.1 srcOurst+oBase (A6é) , D2 ; set up base ptr for source bits 
isi<l #3,D2 ; make it into a bit address 
SE rs move.1 D2,A0 ; put it where the fast loop will use it 
move.w srcOurs+oLbits (A6) , D2 7 now pick up source left margin 
ext .1 D2 ; make it a longword 
( add.l D2,A0 ; make AO useful for odd routine below 
l O U] D move.l dstOurs+oBase (A6) ,D2 7 set up base pointer for target 
Lal 62 #3,D2 ? again, bit addressing works out faster 
. move.1 D2,Al ; stuff it where we want it for the loop 
Over 90 volumes of public move .w dst Ours+oLbit s (A6) ,D2 7 now pick up destination left margin 
domain ‘‘C’’ software including: ext.1 D2 ; make it a longword 
add.1 D2,Al ; and make Al useful, too 
compilers 
. move .w srcOurs+ocols (A6) , A2 7 pick up the often-used count 
editors ; of columns 
text formatters move.w _ srcOurs+oRows (A6) , D2 ; and of rows 
communications add.w #1,D2 ; make row count one-too-high for compares 
packages ext .1 D2 ; and make it a longword 
‘ UNIX-like tool isi.t D1,D2 ; Slide it to line up w/rows part of DO 
many ools move.1l D2,A4 ; and save that somewhere useful 


Write or call for more details 


move .w D1,D2 


=e 


put log2(columns) in a safe place (sigh) 


The C Users’ Group 
Post Office Box 97 


McPherson, KS 67460 (continued on page 92) 
(316) 241-1065 
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HOLD IT, HARRY— 


\ WITH LAL-AL/7 WE WON'T® 
HAVE TO THROWITALL. | 
AWAY AFTER ALL. 


LAI-PL/Z lets you move youl PL/L AQpIIC381/0/S 70 














toaay s hottest Hew workstations withou? GOIHG 
through tle AGO OF FEYHN OGYH20017010-2F9, 





LPI-RPGII, LPI-COBOL, LPI-PL/I, LPI-BASIC, LPI-FORTRAN, LPI-PASCAL, LPI-C, LPI-DEBUG 
LANGUAGE PROCESSORS, INC., 400-1 TOTTEN POND RD., WALTHAM, MA 02154 (617) 890-1155 


Circle no. 266 on reader service card. 


Introducing The Most Important 
Programming Development 
Since The Introduction Of C... 


ADVANTAGE C++ For MS/PC-DOS, 
Exclusively From LIFEBOAT. 


They say you can’t be all things to all 
people. But Lifeboat’s ADVANTAGE 
C++ proves that you can be! This 
exciting new product, developed by 
AT&T, represents a major program- 
ming breakthrough. 


ADVANTAGE C+ + 


@ Opens the door to object-oriented 
programming. 

@ Allows programs with greater resili- 
ence, fewer bugs. 

e Lets you write reliable, reusable code 
that is easier to understand. 

@ Includes many enhancements to C, 
yet maintains full compatibility with 
existing C programs. 

els the key to developing large and 


sophisticated programs more pro- 
ductively. 
@ Has all the benefits of C, without 
its limitations. 
ADVANTAGE C + + is now available 
for the most popular C compilers, 
Lattice C and Microsoft C. 


Why be limited to just C... when you 
can have all these pluses! To order or 
obtain a complete technical specifica- 


tion sheet call: 1-800-847-7078 
In NY: 914-332-1875. 


55 South Broadway Tarrytown N.Y. 10591 


I EERAAT 


felt! tai OO Pe E 


The Full-Service Source for Programming Software. 
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‘*/ Complete 
C Programs 

in Half the Time, 
with Instant-C™ 


ou can create programs much faster 

with Instant-C than with convention- 
al programming tools. How? Because 
Instant-C is a high-performance inter- 
preter, there are no compile or link 
delays. Change your program, then 
test it immediately. No matter how 
large your program, the turnaround 
time is just seconds. 



















“Instant-C means instant gratification.” —PC 
Magazine, Editor’s Choice for best 
Cinterpreter. 










Powerful source-level debugging 
saves your time. Conditional break- 
points, single-stepping by statement, 
source code backtraces, data moni- 
toring, and many other debugging 
features make it easy to wipe out bugs 
quickly. Direct execution of any state- 
ment or function makes testing a 
breeze. 














“The resulting debugging and testing capa- 
bilities are fantastic and the detailed trace/de- 
bug/display commands make it easy.’ — The 
C Journal 














Instant-C checks pointer references 
for reasonableness, and checks that 
array indexes are within declared 
bounds. This run-time checking 
stops your program as soon as errors 
occur, for easiest debugging. 

Not only does Instant-C help you 
quickly change, test, check and debug 
your code, but it runs your program 
fast enough for real-time appli- 
cations. 















“It is much faster than any of the other pro- 
ducts mentioned and was the only one able to 
complete the standard SIEVE in a reasonable 
time. Clearly, this high speed allows much 
more complex problems to be attacked with 
Instant-C than with any of the other products 
discussed.” —Computer Language 













Immediate feedback and precise 
diagnostics make Instant-C great for 
learning C. Full K&R and the ability to 
link compiled object code and li- 
braries (Lattice and Microsoft) makes 
Instant-C compatible with your existing 
programs. 

Instant-C makes all parts of the 
programming task as fast as possible. 

















“Clearly, Instant-C is the performance 
champion."—PC Tech Journal 
Version 2 works with MS-DOS and 
PC-DOS, and has a full 31 day money 
back guarantee. Instant-C is only 
$495. Order today! Call or write for 
full information. 

PO. Box 480 


Rational Natick, MA 01760 
Systems, Inc. (617) 653-6194 
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PROMPT DELIVERY!!! 


ICs; SAME DAY SHIPPING (USUALLY) 
QUANTITY ONE PRICES SHOWN for SEPT. 21, 1986 
OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
1Mbit 1000Kx1 100ns $40.00 
4464 64Kx4 150 ns 4.20 
41256 256Kx1 100 ns 4.85 
41256 256Kx1 120 ns 3.40 
41256 256Kx1 150 ns 2.89 
41128 128Kx1 150 ns 4.99 
4164 64Kx1 150 ns 1.35 
EPROM 
27512 64Kx8 250ns $22.00 
27C256 = 32kx8 250ns 6.50 
27256 32kKx8 250 ns 5.25 
27128 16Kx8 250 ns 3.95 
27C64 8Kx8 200 ns 4.75 








DIGITAL DISSOLVE _ 


Listing One (Listing continued, text begins on page 48.) 





















$10.00 
$12.00 


try to reduce the amount we shift down D2. this involves: 
halving the strides as long as each is even, decrementing D2 as we go 
masking the bottom bits off D4 when we extract the row count in the loop 


V20 8Mhz 
V30 8Mhz 


alas, can't always shift as little as we want. for instance, if we don't 
shift down far enough, row count will be so high as to exceed a halfword, 
and the dread mulu instruction won't work (eats only word operands). so, 
we have to have an extra check to take us out of the loop early. 


$345.00 


IBM PC XT, Compaq Portable & Plus: hp Vectra 
5 Mhz $132.00 


640 Kbyte MOTHERBOARD KITS: Zenith 150, 


80287-8 8Mhz 











2764 8Kx8 250 ns 3.95 move.w srcOurstoStride(A6),D4  ; pick up source stride 
STATIC RAM i move.w  dstOurstoStride(A6),D7 _; and target stride 
43256L-12 32kx8 120ns $27.00 Hi move.w srcOurs+oRows (A6) ,D1 3 get row count for klugey check 
6264LP-15 s8kxs8 150ns : 
tst.w D2 7 how's the bitcount? 
OPEN 61% DAYS, 7 aw-9 pm. = SHIP VIA FED-EX ON SAT. beq.s HALFDONE ; skip out if already down to zero 
SAT DELIVERY | MasterCard/VISA or UPS CASH COD HALF LOOP 
FEE ED ON | Factory New, Prime Parts Poo btst #0,D4 ; is this stride even? 
Padget MICROPROCESSORS UNLIMITED, INC. bne.s HALFDONE ; nope -- our work here is done 
: Std Air $6/ 24,000 S. Peoria Ave., ‘ 
fe Paine $5/7 ee ee See (918) 267-4961 btst #0,D7 ; how about this one? 


Please call for current prices because prices are subject to change. Shipping & insurance extra. bne.s FDONE ; have to have both even 
=n mieten eae ene 
Panett heat ech lsl.w #1,D1 ; can we keep max row number in a halfword? 


bes.s HALFDONE ; nope -- D2 mustn't get any smaller! 


Circle no. 105 on reader service card. 


DATA CONVERSION ee os Po ata ee 


ee 
Oo me 


sub.w #1,D2 ; and remember not to shift down as far 
bne.s HALFLOOP ; loop unless we're down to no shift at all 
HALFDONE ; no tacky platitudes, please 


move.w D4, srcOurs+oSt ride (A6) ; put back source stride 
move.w D7, dstOurst+oSt ride (A6) ; and target stride 


make some stuff faster to access -- use the fact that (An) is faster 
to access than d(An). this means we'll misuse our frame pointer, but 
don't worry -- we'll restore it before we use it again. 





Se Se “eo Se Se 


move .w srcOurstoStride(A6é),A5 ; make source stride faster 
Se ; to access, too 
move.1l AG, - (SP) ; save framitz pointer 
TW move.w dstOurstoStride(A6),A6 ; pick up destination stride 
TRANSFER DATA BE EEN OVER move.1 #0,D6 ; we do only AND.w x,D6 -- but ADD.1 D6,x 


500 DIFFERENT COMPUTER SYSTEMS 
WORD PROCESSORS TOO | clr.w ~ (SP) ; ee yi function Sa 
QUICK TURN-AROUND betwee Snes oileigatar Cea horrible MOWs? 
PRICES FROM $9 PER DISK bne NOMUL ; yes! hurray! 
CALL OR WRITE FOR YOUR 


FREE CATALOG 


PORT-A-SOFT 
555 S. STATE ST., SUITE #12 
P.O. BOX 1685, OREM, UT 84057 





main loop: map the sequence element into rows and columns, check if it's 
in bounds and skip on if it's not, flip the appropriate bit, generate 
the next element in the sequence, and loop if the sequence isn't done. 


Se Se Se Se Se 


check row bounds. note that we can check row before extracting it from 
DO, ignoring bits at bottom of DO for the columns. to get these bits © 
to be ignored, had to make A4 1-too-high before shifting up to align it. 


& LOOP ; here for another time around 
Dr. Dobb by ourn anp.1 A4,D0 ; is row in bounds? 


bge.s NEXT ¢ no? clip.-this 
subscription 
Problems? 





Circle no. 229 on reader service card. 





=e %s Se Se Me 


map it into the column; check bounds. note that we save this check 
for second; it's a little slower because of the move and mask. 


chuck sagely points out that when the "bhi" at the end of the loop takes, we 
know we can ignore the above comparison. thanks, chuck. you're a 


=e “ee Se Se Be Be Be Be 





No Problem! — 
O rropiem! 
LOOP ROW ; here when we Know the row number is OK 
move .w DO, D6 ; copy the sequence element 
and.w DS,D6 7 find just the column number 
j ’ cmp.W A2,D6 7 too far to the right? (past oCols?) 
Give us a call and we'll aie rio Fheae' okie One 


straighten it out. Today. 


move.1 DO,D4 we know element will be used; copy it 


2 ; sub.w D6,D4 remove column's bits 
Outside California lsr.1l D2,D4 ; shift down to row, NOT right-justified 
CALL TOLL FREE: 800-321-3333 
Inside California (continued on page 94) 


CALL: 619-485-6535 or 6536 
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SCIENTIFIC/ENGINEERING 


GRAPHICS TOOLS 
for the IBM PC 


FORTRAN/Pascal tools: GRAFMATIC (screen graphics) 
and PLOTMATIC (pen plotter driver) 


These packages provide 2D and 3D plotting capabilities 
for programmers writing in a variety of FORTRAN/Pascal 
environments. We support MS, R-M and IBM FORTRAN 
and more. PLOTMATIC supports HP or Houston Instru- 
ment plotters. 


Don’t want to program? Just ask for OMNIPLOT! Menu- 
driven, fully documented integrated scientific graphics. 
Write or call for complete information and ordering in- 
_ structions. 


GRAFMATIC — PLOTMATIC — OMNIPLOT [S] & [P] 


10.0 100. 0 1000. 0 


(ZH) AININOIY4 


CONCENTRATION 





10.0 100. 0 1000. 0 
TIME (sec) 


Microcompatibles, 301 Prelude Drive, Silver Spring, MD 20901 
(301) 593-0683 


Circle no. 286 on reader service card. 


HELP 


is at hand 
HELP/Control™ - an on-line help subsystem for the IBM-PC. 


Increases the value of your software. Save development time and money. 

















HELP/Runtime. A few simple subroutine calls add context sensitive on-line help to your 
application. HELP/ Runtime includes tested interfaces for Microsoft C, Lattice C, Turbo Pascal, 
IBM BASIC (Interpreter and Compiler), Microsoft FORTRAN, IBM COBOL and assembler. It is 
distributed with demonstration programs in each language. 


HELP/Popup. Add a powerful help system to existing applications, even in dBase or 123, 
without reprogramming, even without a programmer. It may be memory resident, or, installed 
with an application, it terminates when the application exits, releasing its memory. 


HELP/ Generation. Use your favorite editor and our concise screen definition language to build 
your help files. Compile them into a help system usable by either HELP/Runtime or 
HELP/Popup. The package includes sources for sample help files illustrating such features as 
full-sized or windowed screens. 


HELP/Convenience. The screens include highlighted captions. The user selects a caption with 
the cursor control keys and advances to a new Screen, just as with 123. 


HELP/Documentation. A detailed manual, both on-line and printed, for the documentation 
writer and programmer includes instructions which may be incorporated into the user manual. 


HELP/Environment. PC-DOS 2.0 or greater is required. HELP/Runtime requires 
approximately 9K for code and buffers for full size help screens. 





HELP/Pricing. The complete package (software, both manuals, and demo programs) costs 
$125.00 and includes a royalty-free license to add HELP/ Runtime to your applications and to 
make 25 copies of HELP/ Popup. A demonstration diskette, including the on-line manual, costs 
$15.00. A free update to Release 1.1 is available to registered owners. To order, or for more 
information (including dealer, multiple-copy and site-license pricing) call MDS at 207/772- 
5436. We accept MasterCard and VISA. 

44> 


A 














INC., P.O. BOX 1237, PORTLAND, MAINE 04104 


Circle no. 285 on reader service card. 


SQL Compatible Query System adaptable to any 
operating environment. 


CQL Query System. A subset of the Structured 
English Query Language (SEQUEL, or SQL) 
developed by IBM. Linked files, stored views, 
and nested queries result in a complete query 
capability. File system interaction isolated in an 
interface module. Extensive documentation 
guides user development of interfaces to other 
record oriented file handlers. 


Portable Application Support System 


Portable Windowing System. Hardware 
independent windowing system with borders, 
attributes, horizontal and vertical scrolling. 
User can construct interface file for any 
hardware. Interfaces provided for PC/XT/AT 
(screen memory interface and BIOS only 
interface), MS-DOS generic (using ANSI.SYS), 
Xenix (both with and without using the curses 
interface), and C-library (no attributes). 


Screen |/0, Report, and Form Generation 
Systems. Field level interface between 
application programs, the Query System, and 
the file system. Complete input/output 
formatting and control, automatic scrolling on 
screens and automatic pagination on forms, 
process intervention points. Seven field types: 
8-bit unsigned binary, 16 bit signed binary, 16 
bit unsigned binary, 32 bit signed binary, 
monetary (based on 32 bit binary), string, and 
date. 


$395.00 


C Interpreter. Run the interpreter on any 
hardware and on any operating system. 
Develops true intermediate code, allowing full 
C features in an interpreter. User configurable 
interface to compiler library allows linkage 
with compiled routines. 


HARDWARE AND FILE SYSTEM 
INDEPENDENT 


URTZBERG 


GOMPUTER SYSTEMS 


41-19 BELL BLVD. 
BAYSIDE, N.Y. 11361 


VISA/Master Charge accepted 


(718) 229-4540 


*C-tree is a trademark of FairCom 
IBM, SEQUEL, PC, XT, AT are trademarks of IBM Corp. 
MS-DOS and Xenix are trademarks of Microsoft Corp. 


CQL and the CQL Logo are trademarks of Kurtzberg Computer 
Systems. 





Circle no. 294 on reader service card. 





/\ 
If You Could 
Hear The 
Language 
They’re Using! 


What they’re saying would astound you. 


They've switched from BASIC, and PASCAL, 
and a host of other languages and even stand-alone 
database programs. 


They’ve switched to COMP Computing Standard 
MUMPS...CCSM, the Database Language. 


“The best software product of its kind, that I 
have come in contact with.’’ Computer Language 
Magazine 


“I’ve found the best in CCSM...fast in develop- 
ment and fast in execution...no data-typing 
problems, no concerns for program size, no 


concerns for file or device opens...” R.D. 
Ashworth, Ph.D. 


**..5 years in Basic, Pascal, C, dBase, and 
Dataflex... | have never worked with a lang- 
uage/programming environment as responsive, 
easy to use and as powerful as CCSM”’ P.K. 
Wayne, MD, Ph.D. 


CCSM, the Database Language is a powerful, 
flexible string-oriented language, with the features 
of a complete development and operating system. 


Typical programs are written in 1/3 to 1/5 the 
amount of code, compared to BASIC or PASCAL. 


Multi-Tasking Available, Too! 

CCSM, the Database Language offers a true 
multi-tasking option. Run multiple, concurrent 
background processes for data searches, report 
generation, etc. 


Order CCSM, the Database Language today. 


In a very short time, you'll be surprised at the 
language you're using. 


IBM’s and compatibles...128K min. 


1-800-257-8052 


in Texas 713-529-2576 


MGlobal 


1601 Westheimer, Suite 201 
Houston, TX 77006 
AMEX, VISA AND MC accepted by phone 


Single User disk and operations manual___$ 59.95 
“Cookbook of MUMPS” (includes disk) $ 24.95 
SPECIAL Single user & ““(Cookbook”__$ 75.90 
Multi-tasking $149.95 











Disks are Programmer's Toolkit L___$ 49.95 
not copy Graphics option___$ 49.95 
protected Multi-user $450.00 
MacMUMPS (Macintosh version) $ 89.95 

shipping and handling $ 3.00 





Texas residents add 6 1/8% sales tax 
IBM is a trademark of International Business Machines; 
Macintosh is a trademark licensed to Apple Computer 


Circle no. 197 on reader service card. 
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DIGITAL DISSOLVE 


Listing One (Listing continued, text begins on page 48.) 


D6 is columns. 


=e Se Se Se 


move.w 
mulu 
add.l 
add.l 
move.b 
lsr.l 
move.l 
not.b 


Se Se Se 


move .w 
mulu 
add.l 
add.l 
move.b 
ert 
not .b 


btst 
move.1 
bne.s 
belr 


Se Se Se Se 


AS,D1 
D4,D1 
D6,D1 
AO,D1 
D1,D7 
#3,D1 
D1,A3 
D7? 


A6,D1 
D1,D4 
D6,D4 
Al,D4 
D4,D6 
#3,D4 
D6 


D7, (A3) 
D4,A3 
SETON 
D6, (A3) 


get source byte, and bit offset. 


Se Se Se Se Me Se Se Se 


=e “ese Se Se Se Se Se 


=e Se Se Se 


find the next sequence element. 
for sketchy details. 


D4 has the bit offset in rows, and 


get the stride per row (in bits) 

stride * row; find source row's offset in bits 
add in column offset (bits) 

plus base of bitmap (bits [sic]) 

save the bottom three bits for the BTST 

while we shift down to a word address 

and save that for the test, too 

get right bit number (compute #7-D7) 


find the destination bit address and bit offset 


extract cunningly hidden destination stride 
stride*row number = dest row's offset in bits 
add in column bit offset 

and base address, also in bits 

set aside the bit displacement 

make a byte displacement 

get right bit number (compute #7-D6) 


test the D7th bit of source byte 

point to target byte (don't lose CC from btst) 
if on, go set destination on 

else clear destination bit 


see knuth, vol ii., page 29 


NEXT ; jump here if DO not in bounds 
isr.l #1,D0 ; slide one bit to the right 
bhi.s LOOPROW ; if no carry out, but not zero, loop 
eor.1 D3, D0 ; flip magic bits for bitwidth we want... 
cmp.1 D3,D0 ; ...-but has this brought us to square 1? 
bne.s LOOP ; 1f not, loop back; else... 
bra.s DONE ; we're finished 

SETON 
bset D6, (A3) 7; source bit was on: set destination on 
7 copy of above code, stolen for inline speed -- sorry. 
IeF51 #1,D0 3 slide one bit to the right 
bhi.s LOOPROW ; if no carry out, but not zero, loop 
eor.1 D3,D0 ; flip magic bits... ; 
emp. 1 D3, D0 7; ...-but has this brought us to square 1? 
bne.s LOOP 7 if not, loop back; else fall through 


=e Se Se Se 


oD 
z 


move.l 


move .w 
move.w 
not.b 
not.b 


(SP) +,A6 


srcOurst+toLbits (A6) ,DO : 
dstOurs+oLbits (A6) ,D1l = 


DO 
D1 


here when done; the (0,0) point has not been done yet. 
really the (0,left margin) point. also jump here from another copy loop. 


. 
, 


this is 


restore stack frame pointer 


pick up bit offset of left margin 
and ditto for target 

; flip to number the bits for 68000 

; ditto 


; alternate, late entrance, when SCREEN routine has already set up DO and 
7 Dl (it doesn't want the bit offset negated). 


DONEA 
move.1l 
move.l 
bset 
btst 
bne.s 
belr 

7; return 

DONE2 

ERROR 
_showcurs 


srcOurs+oBase (A6) , AO 
dst Ours+oBase (A6) ,Al 


D1, (Al) 
DO, (AO) 
DONE2 

D1, (Ai) 


. 
’ 


7 land here with DO, Dl set 
; set up base ptr for source bits 
7 and pointer for target 


assume source bit was on; set target 

was first bit of source on? 

yes: skip out 

no: oops! set it right, and fall through 


se Se Se Se 


here when we're really done 
we return silently on errors 
let's see this again 


=e Be 


(continued on page 96) 
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Experience the Future... 
Series3| —Series4 


CP/M80 | MSDOS 


Macro Assemblers/ 

Cross Assemblers 

for Series 3.0 

Series 3 requires at least 256k of mem- 
ory to run under MSDOS & CP/M86 and 
54k TPA of memory to run CP/M80. 
Series 3 products have: Full Listing 
Control, Conditional Assembly & Built 
in Cross Reference. There is Unlimited 
Program Size, Number of Symbols and 
Macros. The Linkers output: Intel Hex, 
Extended Intel Hex, Tektronix Hex, and 
Motorola $19, S28, S37 formats. 


Macro Assemblers’ 

Cross Assemblers 

for Series 4.0 

Series 4 requires 512k of memory to run. 
These products have all the features of 
Series 3 plus: 32 Character Labels and 
User Defined Sections. There is one 
Linker on Series 4 which outputs all the 
same formats as Series 3. Series 4 runs 
under MSDOS, UNIX, VMS and ULTRIX. 


Simulator-Debuggers 

The Simulator-Debuggers run with 256k 
of memory. The Simulator has 16 Break- 
points with optional Counter Field. The 
Symbol Table is limited only by the 
amount of memory. Buffers of 256 bytes 
may be opened for I/O ports. The 
Simulators are available for MSDOS, 
UNIX, VMS and ULTRIX. 


To order, call toll free in U.S. 
(including HI, PR and VI): 


1 800 843-8144 


In Colorado: (303) 369-5001 


For more details, ask fora 
free brochure. 


Name 

(Please Print) 
Company 
Address 


City 


Phone 


Check [] 
MC/VISA # 


Expiration Date 


Software 
Product 


68000,8, 10 
68020 
8400/c00 
8044/51 
80515 
8080 

8085 
8086/88 
8096 
80186/286 


NSC800 


COD (U.S. Only) 0 


Product 


Series 


Shipping $ 


Signature 


995.00 
995.00 
995.00 
1250.00 


995.00 
995.00 
995.00 
995.00 
995.00 
1250.00 
995.00 
995.00 
995.00 
995.00 
995.00 
995.00 
1250.00 
1500.00 
995.00 
995.00 
995.00 
995:00 
995.00 
1250.00 
1250.00 
1250.00 
995.00 
995.00 
1250.00 


more formats available 


Operating System 


Amount $ 


Total $ 


(Shipping is $20.00 per unit for overseas orders. Toll Free number does 
not apply to overseas. 2500AD pays COD charges.) 


ZOOADSOFIVAREING 


17200 East Ohio Drive 
Aurora, Colorado 80017 
(303) 369-5001 





Is Your Program 


HALF-FAST? 


Speed it up 
with 


THE {WATCHER 


An execution profiler 
for IBM PCs 
and compatibles. 


Most programs run at less than 
half the speed that they could. 
You can optimize almost any 
code, but where do you start? 


A typical program spends 
90% of its time in 10% of 
its code. The Watcher 
identifies that critical 10% 
for you, so you don’t 
waste your effort on the 
wrong 90%. 


The Watcher is easy to learn 
and easy to use, and we provide 
full technical support. Watcher 
users have increased program 
performance by as much as 
300%. You can get similar 
results. 


The Watcher works with any 
non-interpretive language on 
DOS version 2 or 3. 


Turbo Pascal users: A 
special section of our 
manual is dedicated to 
you! 


only 
$59.95 


Plus $3.00 
Shipping & 
Handling. 


To order or for free information, 
call or write: 


Stomp 
SOFTWARE 
Forest Road 


Wilton, New Hampshire 03086 
(603) 654-2525 





Circle no. 287 on reader service card. 
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DIGITAL DISSOLVE 


Listing One (Listing continued, text begins on page 48.) 


se 


"=e “Se Se Se Se Fe Be Ss 


=e 


=e Se "ses Be Be “We Ve 


NOMUL 


=e Se Se Ms Ve 


NOMUL2 


movem.1 (SP)+,D3-D7/A2-A5 ; restore lots of registers 

unlk A6 ; restore caller's stack frame pointer 
move.l (SP)+,AO ; pop return address 

add.1 #psize,SP ; unstack parameters 

jmp (AO) ; home to mother 


Sleazo code for when we're asked to dissolve very small regions. if 
either dimension of the rectangle is too small, we bag it and just 
delegate the problem to copyBits. a possible problem with this is 

if someone decides to substitute us for the standard copyBits routine 
-- this case will become recursive... 


here when it's too small 


move.1l sBptr (A6) , - (SP) 7 push args: source bitmap 

move.1 dBptr (A6) , — (SP) : destination bitmap 

move.l sRptr (A6) , — (SP) : source rectangle 

move.l dRptr (A6) ,- (SP) $ destination rectangle 

move.w #srcCopy, — (SP) : transfer mode -- source copy 
cirri - (SP) ; mask region -- NIL 

_copyBits ; do the copy in quickdraw-land 

bra.s DONE2 ; head for home 


code identical to the usual loop, but AS and A6é have been changed to 
shift counts. other than that, it's the same. really it is! well, no, 
wait a minute... because we don't have to worry about the word-size 
mulu operands, we can collapse the shifts and countershifts further 

as shown below: 


; here for alternate version of loop 
tst.w D2 ; is right shift zero? 
beq.s NOMUL2 7 yes: can't do much more... 
cmp.w #0,A5 ; how about one left shift (for source stride)? 
beq.s NOMUL2 7 yes: ditto 
cmp.Ww #0,A6 + and the other left shift (destination stride)? 
beq.s NOMUL2 7 yes: can't do much more... 
sub.w #1,D2 ; all three... 
sub.Ww #1,A5 Se vabOe cs 
sub.wW #1,A6 ; ..-collapsible 
bra.s NOMUL 7 go see if we can go further 


see if we can do the super-special-case loop, which basically is 
equivalent to any rectangle where the source and destination are 
both exactly the width of the Mac screen. 


here when D2, AS, and A6 are all collapsed 


tst.w D2 7 did this shift get down to zero? 

bne.s NLOOP 7; no: skip to first kludged loop 

cmp.W #0,A5 ; is this zero? 

bne.s NLOOP 7 no: again, can't make further optimization 
cmp.W #0,A6 7 how about this? 

bne.s NLOOP ; no: the best-laid plans of mice and men... 
cmp.W A2,D5 ; is there no check on the column? 

bne.s NLOOP ; not a power-of-two columns; rats! 

move.wW AO, D6 7 grab the base address of the source 

and.b #7,D6 ; select the low three bits 

bne.s NLOOP + doesn't sit on a byte boundary; phooey 
move.w Al,D6 3; now try the base of the destination 

and.b #7,D6 7 and select its bit offset 

beq.s SCREEN 7 yes! do extra-special loop! 


fast, but not super-fast loop, used when both source and destination 
bitmaps have strides which are powers of two. 


here for another time around 


cmp. 1 A4,D0 7 is row in bounds? 
bge.s NNEXT 7 no: clip this 
NLOOPROW ; here when we know the row number is OK 
move .w DO, D6 7 copy the sequence element 
and.w DS, D6 7 find just the column number 
anp.w A2,D6 ; too far to the right? (past oCols?) 
bgt .s NNEXT 7 yes: skip out 
move.1l DO, D4 7 we know element will be used; copy it 
sub.w D6,D4 7 remove column's bits 
lsr.1l D2,D4 ; shift down to row, NOT right-justified 


(continued on page 98) 
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How to tackle 
a 300 page monster. 


Turn your PC into a typesetter. 


If you're writing a long, serious document on your IBM PC, you want it to > 
look professional. Precise. Easy to read. You want MicroTpX. : ec 

MicroTRX was designed especially for desktop publishers 
who require heavy duty typesetting. It is based on the TrX stan- MN, | 
dard, with tens of thousands of users worldwide. Documents Lf fi 
from smaller than 30 pages to 5000 pages or more. 
And that’s something that other programs just 
can’t match. 

No other PC software gives you as many 
advanced capabilities as MicroTfX. Superior 
hyphenation control, the sophistication of liga- 
tures ( ffi, fi) and kerning; down-loadable 
fonts; aesthetic handling of math (x = f’(z)), 
and foreign language characters; complex table 
construction and multi-column tasks; dot 
matrix, laser printer and phototypesetter 
output. When used with our [ATpX 
macro package, it automatically enu- 
merates and cross-references 
pages, sections, footnotes and illus-_ 
trations. Plus it automatically . 
creates your indexes, tables of con- 3 
tents, and even updates them for — 
you after last minute insertions. 

So if you want typesetting 
software that’s as serious as 
you are about your writing, 
get MicroTpX. Call toll free : 
800-255-2550 or a) / Ot eee «| Ee 
617-944-6795 to order or 2 LES OI Tk 
for more information* Order : a 
with a 60-day money back 
Suarantee. 































Now available for Macintosh. 


MicrolRX 
from Addison-Wesley 


Serious typesetting for 
serious desktop publishers. 


*Dealers, call our Dealer Hot Line: 800-447-2226 
(In MA, 800-446-3399), ext. 2643. 


Circle no. 92 on reader service card. 





DIGITAL DISSOLVE | 


Listing One (Listing continued, text begins on page 48.) 


move .w AS,D7 
move.l D4,D1 
ala D7,D1 
add.1 D6,D1 
add.1l AO, D1 
move .b BI, D7 


get log2 of stride per row (in bits) 

make a working copy of the row number 

* stride/row is source row's offset in bits 
add in column offset (bits) 

plus base of bitmap (bits [sic]) 

save the bottom three bits for the BTST 


rer. #3,D1 while we shift down to a byte address 
move.] D1,A3 and save that for the test, too 
not.b D7 get right bit number (compute #7-D7) 


extract log2 of destination stride 
stride*row number = dest row's offset in bits 
add in column bit offset 

and base address, also in bits 

set aside the bit displacement 


move .w A6,D1 
lsl.l D1,D4 
add.1 D6,D4 
add.l Al,D4 
move.b D4,D6 


Se Se Se Se Se Se Ve Se Se Se Se Ye Be Ve Ve Ve 


lsr.1 #3,D4 make a byte displacement 
not .b D6 get right bit number (compute #7-D6) 
btst D7, (A3) test the D7th bit of source byte 


move.1l D4,A3 
bne.s NSETON 


point to target byte (don't ruin CC from btst) 
if on, go set destination on 


=e SMe Se Re 


belr D6, (A3) else clear destination bit 

NNEXT ; jump here if DO not in bounds 
isxit #1,D0 ; slide one bit to the right 
bhi.s NLOOPROW ; if no carry out, but not zero, loop 
eor.1] D3, D0 s flip magic bits... 
cmp.1 D3, D0 ; ...but has this brought us to square 1? 
bne.s NLOOP ; 1f not, loop back; else... 
bra.s DONE ; ...we're finished 

NSETON 
bset D6, (A3) source bit was on: set destination on 
lsr.1l #1,D0 slide one bit to the right 


bhi.s NLOOPROW 
eor.l D3, D0 
cmp.1 D3,D0 
pne.s NLOOP 
bra.s DONE 


if no carry out, but not zero, loop 
fiip magic bite... 

...-but has this brought us to square 1? 
if not, loop back; else fall through 
and finish 


=e Se Se Se Ve Se Fe 


super-special case, which happens to hold for the whole mac screen -- 
or subsets of it which are as wide as the screen. here, we've found that 
the shift counts in D2, A5, and A6 can all be collapsed to zero. 

and D5 equals A2, so there's no need to check whether D6 is in limits -- 
or even take it out of DO! so, this loop is the NLOOP code without 

the shifts or the check on the column number. should run like a bat; 
have you ever seen a bat run? 


one further restriction -- the addresses in AO and Al must point to 
integral byte addresses with no bit offset. (this still holds 

for full-screen copies.) because both the source and destination are 
byte-aligned, we can skip the ritual Negation Of The Bit Offset which 
the 68000 usually demands. 


se Se Se Be Se Se Se Se Se Be Se Se Se Se Se Ne 


SCREEN ; here to set up to do the whole screen, or at least its width 
move.1 AO, D6 take the base source address... 
lsr.1 #3,D6 ... and make it a byte address 
move.1 D6, A0 replace pointer 


=e Se Se 


move.1l Al, D6 
Lert #3,D6 
move.l D6,Al 


now do the same... 
dua SOE es 
...the destination address 


=e “ese Se 


bra.s N2LOOP ; jump into loop 


N2HEAD 3 here when we shifted and a bit carried out 
eor.1 D3, DO ; flip magic bits to make the sequence work 
N2LOOP ; here for another time around 
cmp. 1 A4,D0 7 is row in bounds? 
bge.s N2NEXT ¢ not Cito. this 
N2 LOOP ROW : here when we know the row number is OK 
move.1 DO,D1 7 copy row number, shifted up, plus column offset 
ler. #3,D1 ; while we shift down to a word offset 
btst DO, 0 (AO,D1) ; test bit of source byte 
bne.s N2SETON ; if on, go set destination on 
belr DO, 0(Al1,D1) : else clear destination bit 
N2NEXT 7 jump here if DO not in bounds 
16r.1 #1,D0 7 slide one bit to the right 
bhi.s N2LOOPROW ; if no carry out, but not zero, loop 
bne.s N2HEAD ; if carry out, but not zero, loop earlier 
bra.s N2DONE ; O means next sequence element would have been D3 
N2SETON 


(continued on page 100) 
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FONT LIBRARIES 


DISPLAY 


CONTROLLERS 


HALO gives you more than lip service 
to a “graphics standard”, it gives you 
the power and performance today’s 
graphics applications demand. 


Freedom Through Compatibility 
The HALO graphics subroutine library 
also gives you the freedom to choose 
your programming and implementa- 
tion environment by providing the 
widest compatibility among program- 
ming languages and graphics devices. 

Not only does HALO currently sup- 
port 14 programming languages and 
7100 device drivers, but HALO keeps 
you up-to-date with new advances in 
technology by supporting the latest 
languages and graphics devices as 
they become available. 

If you want to reach the largest 
audience and need protection against 
technological obsolescence, then the 
HALO Graphics Kernel System is your 
answer. 


YOU'D BETTER BE USING HALO. 


HALO 


USER APPLICATION 
LANGUAGE BINDING 
HALO GRAPHICS KERNEL 


DEVICE DRIVERS 


leone: 
DEVICES 


History Of Success 

The measure of success is accep- 
tance. HALO is supported by the 
largest installed base of end users, 


Independent Software Vendors (ISVs), 


corporate licensees, and Original 
Equipment Manufacturers (OEMs) of 
any product of its type. 


Full Support 

Media Cybernetics offers an 800 
number hotline, classes, and on-site- 
training backed up by comprehensive 


documentation including the acclaim- 


ed interactive LearnHalo tutorial. 


Ordering Information 

mw HALO—Single language, single 
user license, all device drivers, 
$300. 

mw Additional Language bindings at 
time of order, $150. 

m Font Packs—set of 10 fonts per 
pack, $100 each set. 


Circle no. 199 on reader service card. 


METAFIL 






PLOTTERS 





m Special—Order HALO and one 
Font Pack and get Dr. HALO II for 
just $39.95, a savings of $100. 

m OEM ISV and site licensing 
available, call for details. 

To order or request more information, 

call or write: 

Attn: Randy Cambell 


media cybernetics, inc. 


8484 Georgia Avenue, Suite 200 
Silver Spring, MD 20910 
(800) 446-HALO, (301) 495-3305 





Graphics tools for 
professionals. 
SEE US AT SIGGRAPH BOOTH 1687 


ne ~~ DIGITAL DISSOLVE 


Listing One (Listing continued, text begins on page 48.) 


bset DO, 0(A1,D1) 7 source bit was on: set destination on 

lsr.1 #1,D0 ; Slide one bit to the right 

bhi.s N2LOOPROW ; if no carry out, but not zero, loop 

bne.s N2HEAD ; if carry out, but not zero, loop earlier 
; zero means the loop has closed on itself 


because our bit-numbering isn't like that of the other two loops, we set 


up DO and Dl ourselves before joining a bit late with the common code to 
get the last bit. 


Aer “ese Se Vs Be 


2DONE 
move.l (SP)+,A6 ; restore the stack frame pointer 


move.w srcOurstolLbits (A6) , DO ; get bit offset of left margin 
move .w dstOurs+oLbits (A6é) ,D1 ; and ditto for target 
bra DONEA 7 go do first bit, which sequence doesn't cover 


=e 


=e 3 


mulchk -- see if we can do without multiply instructions. 


calling sequence: 
AS holds the source stride 
A6 holds the destination stride 


clr.w - (SP) 3: reserve room for boolean function return 
bsr MULCHK 3; go check things out 

tst.w (SP) + ; test result 

bne.s SHIFT ; if non-zero, we can shift and not multiply 


(if we can shift, AS and A6 have been turned into shift counts) 


se Se Se Fe Ne Se Se Fe Se Se Se Se Ne 


registers used: none (A5, A6) 
MULCHK 


movem.1 DO-D3,- (SP) 
move.1 A5,D0 


stack caller's registers 
take the source stride 


=e Be 


bsr BITWIDTH ; take log base 2 

move.l #1,D1 3; pick up a one... 

1lsl.l DO,D1 : ...and try to recreate the stride 

cmp. 1 AS5,D1 3 does it come out the same? 

bne.s NOMULCHK ; nope -- bag it 

move.w DO,D3 3; save magic logarithm of source stride 
move.1 A6é, D0 3 yes -- now how about destination stride? 
bsr BITWIDTH ; convert that one, also 


move.1 #1,D1 again, try a single bit... 
lsl.l DO,D1 ...and see if original # was 1 bit 
cmp.1 A6é,D1 how'd it come out? 


bne.s NOMULCHK ; doesn't match -- bag this 


Se Se Se 


we can shift instead of multiplying. change address registers & tell 
our caller. 


=e Se Se Se 


move.w D3,A5 7 set up shift for source stride 
move.w DO, A6 : and for destination stride 

st 4+16(SP) ; tell our caller what's what 

bra.s MULRET ; and return 


NOMULCHK 

sf 4+16(SP) tell caller we can't optimize 
here to return; result set 
pop some registers 
all set 


MULRET 
movem. 1 (SP) +,D0-D3 
rts 


=a Se Se Fe 


se 


table of (longword) masks to XOR in strange Knuthian algorithm. 

the first table entry is for a bit-width of two, so the table actually 
starts two bytes before that. hardware jocks among you may recognize 
this scheme as the software analog of a “maximum-length sequence 
generator", 


to save a bit of room, masks are packed in bytes, but should be aligned 
as described in the code before being used. 


=e Se Me Ne Se Se Ns Ve Be Ts Me 


table -equ *=—2 ; first element is #2 
-byte 30 + 
-byte 30 3 
-byte 30 7; 4 
-byte 50 5 
.byte 30 SS 


(continued on page 102) 
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At last! - 


Fast, On-screen 


FLOWCHARTS 


Finally! An on-screen flowchart proc- 
essor that knows about flowcharts - not 
just another “screen draw” program that 
makes you do most of the work. 


Interactive EasyFlow is a powerful 
full-screen graphics program dedicated 
to flowcharts and organization charts. 
With this program you can quickly com- 
pose charts on the screen. More im- 
portant, you can easily modify charts so 
they are always up to date. 


Features: @ Text is automatically 
centered, character by character, within 
shapes as you type it @ Text formatting 
controls allow you to over-ride the auto- 
matic formating where desired @ Lines 
are created by specifying the starting 
and ending points - the program auto- 
matically generates the route @ Cut and 
paste facility allows arbitrary chart 
fragments to be moved, copied rotated, 
reflected or sent to/from disk @ Shape 
insert-delete and row/column insert- 
delete e Charts can be up to 417 
characters wide by 225 lines high. 
Charts too wide for the printer are auto- 
matically printed in strips. @ Charts can 
be larger than the screen - the window 
into the chart scrolls both horizontally 
and vertically as necessary @ Works 
with many popular matrix printers in- 
cluding Epson, IBM graphics printer and 
compatibles. Full support for HP 
LaserJet and LaserJet Plus. Works with 


STATUS BAR (not to be 
confused with a wet bar) tells 
you what Interactive EasyFlow 
is doing at all times. 






Shape request - 


TEXT/MESSAGE 


WINDOW used to enter ag 
user text and to display —’ Is entry“valid “2° 
ve 


messages from Interacti 
EasyFlow. | 


CURRENT SHAPE 
WINDOW - shows the 
content of the current 
flowchart shape (the one 
under the SHAPE 
CURSOR) in complete 
detail. 





HaventTree Software Limited 
P.O. Box 1093-B 

Thousand Island Park, NY 13692 
Information: (613)544-6035 ext 26 








HP 7475A (& compatible) plotters. Can 
be used with ANY printer when non- 
graphic (character) output is acceptable 
e All standard flowcharting shapes in- 
cluded @ Most shapes supplied in large, 
medium and small sizes @ Extensive 
manual (100+ pages) includes many 
examples @ Context sensitive “help” 
facility provides immediate assistance at 
any time @ Any number of titles can be 
placed on a chart @ Commentary text 
blocks can be placed anywhere in the 
chart @ Fast: written in assembly lan- 
guage @ Plus many more features than 
we Can mention here 


Requires at least 320K memory, DOS-2 
or higher and an IBM or Hercules com- 
patible graphics card. On EGA, full 
640x350 resolution is used. 


Order direct for only $149.95 + $2.00 
S&H (USA/Canada), $10.00 (foreign). 
Payment by MO, check, VISA, 
MasterCard, COD or Company PO. 
Rush orders accepted ($15.00 S&H; 
USA/Canada only). Rush orders re- 
ceived by noon will be delivered the next 
business day (to most locations). 


1-800-267-0668 


The sample screen display shown below is typical of 
what you see while editing a chart. Other screen dis- 
plays are provided for entering titles, changing 
options, getting “help” and so on. 


Order Desk: 


CHART WINDOW gives an overview of your chart; this 
example shows the “normal” view. “Close-up” view shows a 
smaller part of the chart in more detail. “Wide-angle” view 
shows a larger part of the chart at reduced size. 


a 








SHAPE CURSOR shows where you are in 
the chart. Cursor keys move it around; chart 
window scrolls if you run off the edge of the 
window. 


Circle no. 176 on reader service card. 
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MAKE YOUR PC 
SEEM LIKE AN AT! 


MAKE YOUR AT 
SEEM LIKE A 
DREAM MACHINE! 


FANSI- 
CONSOLE" 


The Integrated Console Utility™ 


FAST, POWERFUL 
ANSLSYS REPLACEMENT 


For the IBM-PC, AT, and clones 


New Version 2.00 is MUCH FASTER! 
Now blink free scrolling on CGA! 


GET A BOX FULL OF UTILITIES! 
MAKE LIFE EASIER FOR ONLY $75! 


ceoesocoeeoeeeeeeeeeeeeeeeeeeeeteeeeeeeeeeeeeeeeeewteeeeeeeee®e 


¢ Speed up your screenwriting 2-6x 

¢ Extend your ANSI.SYS to full VT100 
e Add many more escape sequences 
¢ Scroll lines back onto screen 

¢ Save scrolled lines into a file 

e Add zip to your cursor keys 

e Free your eyes from scroll blinking 
e Easy installation 

© Get a 43 line screen w/EGA 

* Get a 50 line screen w/CGA 

¢ No more annoying typeahead beep 
¢ Prevent screen phospher burnin 

¢ Control many programs’ use of color 
* Generate breakpts from keyboard 

¢ Shorten that annoying bell 

¢ Over 40 other useful options 


JIALIGG BJOSUOD) ISN V ISBA 

















“The psychological difference is 
astonishing” 
—Lotus June 85 pg 8. 


“So many handy functions rolled into 
one unobtrusive package”’ 
—PC-World Feb 86 pg 282. 


“The support provided by the 
publishers is extraordinary” 
—Capital PC Monitor May 86 pg 25. 


“.. the best choice for improving your 
console...” 
—Capital PC Monitor June 86 pg 282. 


400p Manual (w/slip case) & disks $75. 


Satisfaction Guaranteed! 
Order Yours Today! 


HERSEY MICRO CONSULTING 
Box 8276, Ann Arbor, MI 48107 
(313) 994-3259 VISA/MC/Amex 


Circle no. 280 on reader service card. 
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DIGITAL DISSOLVE 


Listing One (Listing continued, text begins on page 48.) 
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byte 30 a 
byte 270 eo 
-byte 210 2 
-byte llo oO 
-byte 50 Piha 
-byte 1450 tae 
-byte 330 ries 'e| 
-byte 650 5 La 
.-byte 30 g 12 
.-byte 550 ge LS 
.byte llo a Ld 
-byte 2010 ris 
-byte 71lo eis 
-byte llo 20 
-byte 50 Pwd 
.-byte 30 Fee 
-byte 4lo gee 
-byte 330 $24 
-byte llo 25 
.-byte 161lo 2.26 
.byte 7J1lo Read 
-byte llo 7 28 
-byte 50 p29 
-byte 1450 30 
byte llo i ee 
-byte 2430 ae 
align 2 
convert -- convert a parameter bitMap and rectangle to our internal form. 
calling sequence: 
lea bitMap,A0O ; point to the bitmap 
lea rect,Al + and the rectangle inside it 
lea ours, A2 ; and our data structure 
bsr CONVERT - Cal. Us 


=e Se Se Se Se Be Se Fe Se Fe Se Ve Se =e “Se Se Se Se Se Be 8 


CONVERT 


se Se Se 


move .w 
sub.w 
mulu 


add.l 


move .w 
sub.w 
move.w 
and.w 
move.w 


lsr.w 
ext.1l 
add.l 
move.1 


=e “es Se 


move.w 
lsl.w 
move .w 


=e Se Se 


move .w 
sub.w 
sub.w 
bmi.s 
move.w 


move.w 
suD.W 
sub.w 
bmi 
move.w 


registers used: DO, Dl, D2 


top (Al) ,DO 
bounds+top (AO) , DO 
rowbytes (AO) , DO 


baseaddr (AO) ,DO 


left (Al) ,D1 
boundst+left {A0) ,D1 
D1,D2 

#7,D2 

D2,oLbits (A2) 


#3,D1 

D1 

D1,D0 

DO, oBase (A2) 


rowbytes (AO) ,DO 
#3,D0 
DO, oSt ride (A2) 


Save the number of rows and columns. 


bottom(Al) ,DO 
top (Al) ,DO 
#1,D0 

CERROR 

DO, ORows (A2) ; 


right (Al) ,DO 
left (Al) ,DO 

#1,D0 

CERROR 

DO, oCols (A2) 


2 
’ 
. 
, 
. 
f 


se Se Se “Se Ne 


=e Se Se Se 


. 
f 

. 
‘ 

° 
’ 


Se Se Se Se Ne 
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when done, all fields of the "ours" structure are filled in: 
oBase is address of first byte in which any bits are to be changed 
olbits is number of bits into that first byte which are ignored 
oStride is the stride from one row to the next, in bits 
oCols is the number of columns in the rectangle 
oRows is the number of rows 


save the starting word and bit address of the stuff: 


pick up top of inner rectangle 
figure rows to skip within bitmap 
compute bytes to skip (relative offset) 


find absolute address of first row to use 


pick up left coordinate of inner rect 
find columns to skip 

copy that 

compute bits to skip in first byte 
save that in the structure 


convert column count from bits to bytes 
convert to a long value, so we can... 

add to row start in bitmap to find lst byte 
save that in the structure 


save stride of bitmap; this is same as for the original, but in bits. 


pick up the stride 
multiply by eight to get a bit stride 
stick it in the target structure 


get the bottom of the rectangle 

less the top coordinate 

get number of highest row (lst is zero) 
nothing to do? (note: O IS ok) 

save that in the structure 


get the right edge of the rectangle 
less the left coordinate 

make it zero-based 

nothing to do here? 

save that in the structure 
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all done. return. 


=e “e Ve 


rts 
: error found in CONVERT. pop return and jump to the error routine, such as it is. 
CERROR 

addq.1 #4,SP ; pop four bytes of return address. 

bra.s ERROR ; return silently 


log2 -- find the ceiling of the log, base 2, of a number. 
bitwidth -- find how many bits wide a number is 


calling sequence: 


move.1l N,DO 3; store the number in DO 
bsr LOG2 ; call us 
move .w i ; DO contains the word result 


registers used: D2, (D0) 


se Se Se Se SMe Se Be Se SMe Ss Se Fe Se 


BITWIDTH 
sub.1 #1,D0 3 so 2**n works right (sigh) 
LOG2 
tst.1l DO ; did they pass us a zero? 
beq.s LOGDONE ; if DO was one, answer is zero 
move .w #32,D2 : initialize count 
LOG2LP 
1lsl.1l #1,D0 ; slide bits to the left by one 
dbcs D2,LOG2LP ; decrement and loop until a bit falls off 
move .w D2,D0 ; else save our value where we promised it 
LOGDONE ; here with final value in DO 
rts ; and return 
.end ; procedure dissBits 


End Listing 


C and Assembly Language Programmers!! 


* B+tree relational database development system for C 
and Assembly Language environments under MS-DOS. 


Up To Your Ears 
In Alligators? 


If that sounds familiar, you need 


Write-Hand-Man™, the multi- * Multiple keys per data file 


function pop-up desktop 
organizer that works 
neatly with existing soft- 
ware for CP/M™ 2.2 and 
3.0 systems. Write-Hand- 
Man eliminates that 
swamped feeling with 
tools that will get you 


* Temporary indices may be created at run time. 

* Wildcard key value searches 

* ASCII binary, and floating point key values. 

* Virtual file handling allows any number of data and index files to be used. 
* Source code is available. 

* No royalties req'd for your application programs. 


. and it's FAST! Written 100% in Assembly Language for 


lightning fast execution and small code size. 


Assembly language development LIBRARY with over 
Book, File and Directory viewing — Phonebook 200 functions which give a Text Windowing, Floating 
with dialing — Cut and Paste — Key Redefinition — Point Math and Trig., High level graphics, etc..... 


Ret Higble. Bveradd your owe ap ene: asmTREE ................. only$395.00 COMPLETE 
Clear the swamp from your desktop. ASMLIB.................. only$149.00 COMPLETE 


Order Write-Hand-Man today. $49.95 
bbe Gacein edad oh tie euree to p sa Requires IBM PC/XT/AT or compatible running under 
credit cards or purchase orders. f£oor rereron MS-DOS or equivalent. 


Specify: 8” or which 5” format Software 
CP/M 2.2 or 3.0 format BC Associates 
Dept. 203 3261 N. Harbor, Suite B 


3721 Starr King Circle Fullerton, CA 92635 


organized. Write-Hand- 
Man comes with a 
4-function, floating-point, 
14 digit Calculator — Notepad 
— Two-week Appointment 





30 day guarantee 


™ Write-Hand-Man — Poor Person Palo Alto, CA 94306 


Software (415) 493-3735 
™ CP/M — Digital Research (714) 526-5151 





Circle no. 182 on reader service card. 
Circle no. 169 on reader service card. 
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STRUCTURED PROGRAMMING 


Listing One (Text begins on page 120.) 


Listing 1. Using the predefined NUMERIC_ERROR Ada exception. 


function Power (BASE, EXPONENT : FLOAT) return FLOAT is 
begin 
return Exp(Exponent * Ln(Base)); 
-- This is the area to handle exceptions 
exception 
when NUMERIC ERROR => 
if Base = 0 then 
return 0; 
else -- return “infinity" 
return FLOAT'FIRST; 
end if; 


end Power; 


End Listing One 
Listing Two 


Listing 2. General form of exception handling block. 


procedure Big Trouble is 


Negative Absolute Temperature, 
Negative Pressure, Negative Volume : exception; 


Temperature, Pressure, Volume : FLOAT; 
begin 
-- procedure to calculate temperature, Pressure and volume 
-- Calculate temperature in Rankin 
if Temperature < 0.0 then 
raise Negative Absolute Temperature; 
end if; 
-- Calculate pressure and volume 
if Pressure < 0.0 then 


raise Negative Pressure; 
end if; 


if Volume < 0.0 then 
raise Negative Volume; 
end if; 


-- other procedure statements 


exception -- handling block 
when NUMERIC ERROR => 


-- handle bad function arguments, underflow or overflow 
when Negative Absolute Temperature => 
-- handle negative absolute temperature results 
when Negative Pressure | Negative Volume => 
-- handle negative pressure or volume values 
when others => 
-- handle all other problems 
end Big trouble; 


End Listing Two 


Listing Three 


Listing 3. Ada exception handling scope. 


procedure The Boss is 
Boss Angry : exception; 


procedure Command Worker is 

begin 
-- sequence of statements 
if income < 0.0 then raise Boss Angry; end if; 
-- sequence of statements 


end Command Worker; 


procedure Command Foreman is 
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begin 


-- sequence of statements 
Command Worker; 
-- sequence of statements 
exception 
when Boss Angry => 
-- Try to deal with the boss 
end Command Foreman; 


begin 
-- sequence of statements 
Command Worker; 
Command_Foreman; 
- sequence of statements 
exception 
when Boss Angry => 
-- fire foreman 
end The_Boss; 


End Listing Three 


Listing Four 


Listing 4. The retry approach with exception handlers. 


with TEXT_IO; use TEXT_IO; 


procedure Days of our lives; 
type Day Name is (Sun, Mon, Tue, Wed, Thu, Fir, Sat); 
package DAY_IO is new TEXT_IO.ENUMERATION IO (Day Name); 
use Day 10; 


-- define time-out 

Time_Out : constant integer := 5; 
-- define variable 

Day : Day Name; 

-- define exception 

Wrong Day : exception; 


begin 
for Count in 1..Time Out loop 


PUT(“What day is it?"); NEW_LINE; 


begin -- exception handling block starts here 
GET (Day); NEW_LINE; 
PUT (“Have a nice “); PUT(Day); NEW LINE; 
exit; -- exit for loop when answer is correct 


exception 
when CONSTRAINT_ERROR => 

if Count = Time Out then 
PUT (“Sorry! Loop time-out"); 
raise Wrong Day; 

else 
PUT("Sorry! No such weekday"); NEW LINE; 
PUT("You have "); PUT(Time Out - Count); 
PUT(" more times to try); NEW _LINE; 
PUT("Let us try once more"); NEW LINE; 


end if; 
end; -- end error handler 
end loop; -- end for loop 


end Days of our lives; 


End Listing Four 
Listing Five 


Listing 5. Using an alternative method with exception handlers. 


with TEXT_IO; use TEXT_IO; 
procedure Root is 
Result, Guessl, Guess2, Accuracy : FLOAT; 


Max Iter : INTEGER; 
Diverge, Fatal Error : exception; 


function F(X : FLOAT) return FLOAT is 


begin 
return X * X * X — 5.0; 
end F; 


procedure Newton(Guess, Accuracy : FLOAT; Max Iter : INTEGER) is 
-- Newton's method to find the root of a function 


(continued on page 113) 
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A TRAINING 
COURSE FOR 
PEOPLE WHO 
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Intel is offering three new 
courses on the world’s most pow- 
erful 32-bit microprocessor- 


Complete training sessions and 
courses can be scheduled at your 
facility, or at our training centers. 


eee ais si se ak oe oe 


the 80386. Plus a new intensive jee = 10) addition to training, Intel offers 





course on the 80286. hardware/software support and 
These in-depth learning sessions are consultants. 


designed for engineers and programmers For more complete course informa- 
who want to utilize the full power and tion and schedules, call toll-free (800) 
potential of these lightning-fast chips. 548-4725. 
Lectures are combined with hands-on Or to register now, contact one of the 
e © . o 8 e 
workshops to provide real-life situations. — Intel Training Centers listed below 
Allowing you to apply new concepts and Intel Training Centers 
techniques immediately Boston Area, Westford Corp. Ctr. San Francisco Area 
‘ | _ Three Carlisle Road, Ist Floor 2700 San Tomas Expressway 
Courses include : Westford, MA 01886 Santa Clara, CA 95051 
80386 System Software (617) 692-1000 | (408) 970-1700 
: ; Chi Ar Washington, D.C. Ar 
80386 Pr OgT amMiming using ASM386 B00 'N Mandagae Road, Suite 300 airing Ste Drive, Sth Floor 
High-end Microprocessor Hardware aoe Oe so 
Design 
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MEMORY RESIDENCY Symbolic Debugger 
MADE EASY 


CrackerJack Microsoftware Corporation is proud to introduce “JACK™”, the Resident 
Program Developer's Kit. JACK contains everything you need to create your own 
RAM resident software without any of the headaches of memory management, 
windows, or DOS re-entrancy. 

With JACK at your side, creating programs as good as SIDEKICK™ couldn’t be 
easier !!!_ Now you can concentrate on how your program should run, instead of 
worrying about how to make it memory resident. 


JACK FEATURES: 


° Virtually any EXISTING C or ASSEMBLER program can be made memory resident 
with no need for modification to the code. [PASCAL will be supported in the near future.] 

¢ Automatic screen save on popping up and restore upon popping down. 

* Your choice of Hotkey and interrupt vector for program use. 

* You can use DOS function calls in your memory resident program. 

* All programs developed with JACK will coexist with each other peacefully. No more 
system crashes and lost data. 

* JACK applications can be loaded in any order and popped-up in any order. Less 
support problems for you and no headaches for the end user. 

* Your program will beep if it is not possible for you to pop up at the time desired. 

* Since JACK does not make any use of undocumented DOS calls, programs 
developed with it will not become obsolete when Microsoft releases a new version 
of DOS. [JACK requires DOS Version 2.0 or higher]. 


Finally, a standard for easily creating memory resident programs has arrived ! 


To Order, send $199.95 [US] by 


certified check or international money 
order to: 


CRACKERJACK 


Microsoftware Corporation. 

200 Bay Street, PO Box 86, Toronto, 
Ontario M5J-2J2 Canada. 

(416) 865-9621. 


Please specify your choice of the C or 
assembler version of JACK and indicate 
the vendor and version of your 
compiler. 





Circle no. 238 on reader service card. 


for 
Turbo Pascal 


For PC-DOS and MS-DOS computers. 

*Examine and modify variables during program 
execution. 

*Set breakpoints at procedures, functions 
and labels by name. 

eVariables are displayed according to their 
declared types. 

¢View Pascal source on the screen or send it 
to the printer while your program is running. 

*Line-by-line single step. 

*Debug window allows debugging of programs 


without interfering with screen output. 
*Much more, including machine-level debugging 
features. 


Suggested retail price: $59 


Our mail order price: $49 


plus Shipping and Handling: 
$3 US/Canada, $11 elsewhere. 
VISA and MASTERCARD accepted. 
Texas residents please add 6.125% sales tax. 
Unsure? Send $2 for a demonstration disc, refunded upon purchase. 
Kydor Computer Systems 
1701 Greenville Avenue Suite 505 
Richardson, Texas 75081 
(214) 669-1888 
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DR. DOBB'S CAIALOG 


” featuring: 


DR. DOBB’S TOOLBOOK OF 
68000 PROGRAMMING 


A complete collection of practical programming tips and 
techniques for the 68000 family, including the best articles 
from Dr. Dobb’s along with much new materia!! 


STAT TOOLBOX FOR 
TURBO PASCAL 


Two statistical packages in one! A reference disk and manual 
show you the tools you need to build your own statistical 
applications, while a demonstration disk and manual provide 
ready-to-use, fully functioning statistical programs. 


IAMING DOS 


Learn to make DOS work for YOU! Taming DOS takes you 
beyond the basics so you can customize DOS to fit YOUR needs. 





ALSO INSIDE: 


A UNIX-LIKE SHELL & 

UTILITY PACKAGE FOR MS-DOS 

DR. DOBB’S COMPLETE C TOOLBOX 
THE TOOLBOOK OF FORTH 
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SH: A UNIX-LIKE SHELL FOR MS-DOS 


Includes complete source code and documentation 


THE SHELL V. 2 
NEW, UPGRADED VERSION! 


The shell is an MS-DOS implementation of the most often used 
parts of the UNIX C Shell. This package includes an execut- 
able version of the Shell, along with complete source code 
and full documentation, by DDJ columnist Allen Holub. 

If you are a registered user, or have already purchased Version 
| of the Shell from Dr. Dobb’s, you can receive the upgrade 
disk for only $6. Supported features include: 


Editing Command-line editing with the cursors is supported. 
The line is visible as you edit it. 

Aliases Can be used to change the names of commands or as 
very fast, memory-resident, batch files. Nested aliases are 
supported. 

History You can execute previous commands. The command 
can be edited before being executed. Version 2 supports imbed- 
ded history requests (Bar; !! >foo). 


Redirection and Pipes <> >> >& >>& | fy 


Pipe temporary files can be put on a RAM disk. 


Unix-like Command Syntax / can be used to separate directo- 
ry names (\ can now be used as well). A 2048-byte commnd line 
is supported. Command-line wild card expansion. Multiple com- 
mands on a line. 

DOS-compatible prompt support 

$d $t $_ $e $h $n $q $$ $% 

C-Shell Based Shell Scripts (batch files) Shell Variables are 
macros that can be used on the command line. Version 2 sup- 
ports arithmetic manipulation of shell variables using the @ 
command. The following C operators are supported: () + — 
*/% <= >= <> = == ! &€K ti = 

A batch file can call another batch file like a subroutine. Control 
is passed to the second file and then back to the first when the 
second is finished. Batch files can return values to the calling file 
using the exit and $status mechanisms. 


A powerful, interpretive, programming language, based on the 
UNIX C Shell, is now supported, including: 
if/then/else foreach break 
while switch /case continue 
All commands can be nested. 
The shell runs on IBM PC’s and compatibles. 


The Shell Item #160 $29.95 


The Shell Upgrade Disk Item #160A $6.00 
(for owners of the Shell Version 1) 


SAVE OVER 15%! ORDER THE SHELL 
AND /UTIL TOGETHER FOR ONLY $50! 


Shell /Util Package Item #162 $50 
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/UTIL 


/Util is a collection of UNIX-like utility programs for MS-DOS. 
This package includes updates of the highly acclaimed Dr. 
Dobb’s articles; Grep: a UNIX-like Generalized Regular Ex- 
pression Processor, and LS and Getargs from DD/J’s C Chest. 

Source code is included and all programs (and most of the 
utility subroutines) are fully documented in a UNIX-style 
manual. You'll find executable versions of: 


cat echo mv rm 

cp grep p rmdir 

date Ls pause sub 

du mkdir printenv chmod 

/Util Item #161 $29.95 


TO ORDER: return THE FORM AT THE END OF THE CATALOG, OR 


CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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THE DR. DOBB’S TOOLBOOK SHELF 


Z80 TOOLBOOK 


David E. Cortesi, longtime Dr. Dobb’s columnist brings you: 


. a method of designing programs and coding them in as- 
sembly language. Cortesi walks through the initial 
specifications, designing an algorithm and writing the 


code. He demonstrates the construction of several useful programs. 


- a complete, integrated toolkit of subroutines for arithmetic, 
for string-handling, and for total control of the CP/M file 
system. They bring the ease and power of a compiler’s run- 

time library to your assembly language work, without a 
compiler’s size and sluggish code. 


- Every line of the toolkit’s source code is there to read. 


ORDER THE Z80 SOFTWARE ON DISK! 


All the software in Dr. Dobb’s Z80 Toolbook—the programs 
plus the entire toolkit, both as source code and object modules 
for both CP/M 2.2 and CP/M Plus—is yours on disk! 

Most of the programs are included in the book, however, the disk 
is necessary for complete listings. A Z80 microprocessor and a 
Digital Research International RMAC assembler or equivalent 
are required. 


Dr. Dobb’s Z80 Toolbook Item #022 $25 


Dr. Dobb’s Z80 Toolbook w/disk Item #022A $40 
Please specify one of the following disk formats: 8” SS/SD, 
Apple, Osborne, or Kaypro 


DR. DOBB'S 
TOOLBOOK OF FORTH 


This comprehensive collection of useful Forth programs and tu- 
torials contains DDJ’s best Forth articles, expanded and revised 
along with new material. In addition, you’ll glean important in- 
sights about the potential of this increasingly popular language 
from the many in-depth discussions of advanced Forth topics. 
You'll find sections on: | 


Mathematics in Forth, including “Series Expansion in 
Forth,” “Forth Floating-Point Package,” and “Signed 
Integer Division” 

Modifications /Extensions, including “A Proposal for 
Strings in Forth,” ‘“‘“Non-Deterministic Control Words,” 
“Some Forth Coding Standards,” and “Towards a More 
Writable Forth Syntax” 

Forth Programs, including ‘GO in Forth,” ‘“‘Elements of a 
Forth Data-Base Design,” “The Forth Sort,” “SEND & 
RECV,” “Interface for a Mouse,” “Relocating Loader in 
Forth,” ‘‘Forth Decompiler,” ““Screen-Oriented Editor 
ReVisited,” “Evolution of a Video Editor,” ““H-19 
Screen Editor,” and “The Conference Tree.” 
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Forth—the language, including “The Forth Philosophy,” 
“Teaching Forth as a First Language,” and “‘Forth-83 

and Vocabularies” 

Implementing Forth, including “Forth and the Motorola 
68000,” “‘A 68000 Forth Assembler,” ““A Forth Assem- 
bler for the 6502,” and ‘“*Z8000 Forth.” You'll also find 
Appendices that will help you convert fig-Forth to Forth- 
83, and tell you how to stay up-to-date on the latest de- 
velopments and refinements of this popular language. 


The screens in the book are also available on disk as ASCII 
files. Receive Dr. Dobb’s Toolbook of Forth, along with the 
software on disk, together for only $39.95. 


Dr. Dobb’s Toolbook of Forth Item #030 $22.95 


Dr. Dobb’s Toolbook of Forth w/Disk 

Item #031 $39.95 
Please specify MS/PC-DOS, Apple II, Macintosh, or CP/M. 
For CP/M disks, specify Osborne or 8” SS/SD. 


TO ORDER: returN THE FORM AT THE END OF THE CATALOG, OR 


CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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DR. DOBB’S C TOOLBOX: POWERFUL 


DR. DOBB'S C SOFTWARE 
TOOLS ON DISK 


To complement the Toolbook, Dr. Dobb’s offers the following 
programs on disk. Documentation and full C source code are 
included. 

Except where indicated, both CP/M and MS/PC-DOS ver- 
sions are available. 


SMALL-C COMPILER 


Jim Hendrix’s Small-C Compiler is the most popular piece of 
software published in Dr. Dobb’s 11-year history. Like a home- 
study course in compiler design, the Small-C Compiler and the 
Small-C Handbook provide everything you need but the com- 
puter for learning how compilers are constructed, and for learn- 
ing C at its most fundamental level. 


Available for MS/PC-DOS or CP/M systems. Please specify 
format. 


Small-C Compiler Item #007 $19.95 


SMALL-MAC: 
AN ASSEMBLER FOR SMALL-C 


This assembler features simplicity, portability, adaptability, and 


educational value. The package includes: 
-a simplified macro facility DR. DOBB 3 
-C language expression operators TO OL B OOK OF C. 


-object file visibility 
-descriptive error messages 


-an externally defined instruction table 





Over 700 pages of C material, including articles by such C ex- 
perts as Kernighan and Ritchie, Cain and Hendrix, Skjellum 
and Holub! The level is sophisticated and pragmatic, appropri- 
ate for professional C programmers. 

The most valuable part of the Toolbook to many will be the 
hundreds of pages of useful C source code, including: 


You get the macro assembler, linkage editor, load-and-go load- 
er, library manager, CPU configuration utility, and a utility to 
dump relocatable files. Documentation is also included. 


pie hs ne eee sin Oniy. Please speyay TOmieL -Jim Hendrix’s famous Small-C Compiler and New 


Small-Mac Item #012A $29.95 Library for Small C—Also available on disk! 
«NEW! Hendrix’s Small Mac: An Assembler for 


SMALL-TOOLS: Small C and Small Tools: Programs for Text Process- 


ing—Both also available on disk! 


PROGRAMS FOR TEXT PROCESSING All of Anthony Skjellum’s C Programmer’s Note- 
This package of programs performs specific, modular opera- book columns distilled by Tony into one thought- 
tions on text files, including: editing; formatting; sorting; merg- provoking chapter 


ing; listing; printing; searching; changing; transliterating; copy- 
ing; concatenating; encrypting and decrypting; replacing spaces = The accompanying text explains, in the programmers own 


with tabs and tabs with spaces; counting characters, words, or words, why they did what they did. 

lines; and selecting printer fonts. You'll find all the best C articles and code published in Dr. 
Small-Tools is supplied in source code form so you can select Dobb’s over the years updated for the Toolbook, including Ron 
and adapt these tools to your own purposes. Documentation is Cain’s original Small-C article. 

also included. From M&T Publishing and Brady Communications 
Small-Tools Item #010A $29.95 Dr. Dobb’s Toolbook of C Item #005 $29.95 


TO ORDER: return THE FORM AT THE END OF THE CATALOG, OR 


CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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TOOLS FOR SOFTWARE DEVELOPERS 





THE SMALL-C 
HANDBOOK 


Jim Hendrix’s Small-C Handbook is the reference book on his 
Small-C Compiler. In addition to describing the operation of 
the compiler, the book contains complete source listings to the 
compiler and its library of arithmetic and logical routines. 

A perfect companion to the Hendrix Small-C Compiler avail- 
able from DDJ on disk, the Handbook even tells you how to use 
the compiler to generate a new version of itself! 

While both the Handbook and the Toolbook provide documen- 
tation for the Small-C Compiler, the Handbook contains a 
more detailed discussion and is available with addendum for 
the MS/PC-DOS version. 

From M&T Publishing and Brady Communications 


The Small-C Handbook Item #006 $17.95 


The Handbook with MS/PC-DOS Addendum 
Item #006A $22.95 


C DISK FORMATS 

When ordering, please indicate MS/PC DOS or CP/M. For 
CP/M disks, please specify one of the follwing formats: Apple, 
Osborne, Kaypro, Zenith Z-100 DS/ DD, 8” SS/SD. Special 
order formats are available for an additional $10 each. 
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DR. DOBB’S 
SOURCEBOOK: 


THE C PROGRAMMING LANGUAGE REFERENCE 


A comprehensive reference manual to new information, prod- 
ucts and services, the Sourcebook contains: 


ea bibliography of over 300 articles and 

books on C 

-a descriptive list of products for C programmers, 
including compilers, editors, interpreters, and utilities 

ea list of C-related services: classes, seminars, and on- 
line services 


Dr. Dobb’s Sourcebook Item #004 $7.95 


SPECIAL PACKAGES 
20% OFF 


Receive a complete set of Dr. Dobb’s C programming tools for 
your MS/PC-DOS or CP/M system for 20 percent off the 
combined individual prices! 


CP/M C PACKAGE 


Receive this special package and save $20! You’ll get: 


«Dr. Dobb’s Toolbook for C 

«The Small-C Handbook 

-The Small-C Compiler on disk 

«The Small-Mac assembler on disk, with 
documentation 

-The Small-Tools text-processing programs on disk, 
with documentation all for only $99.95! 


Please specify format. 


CP/M C Package Item #005A $99.95 


MS/PC-DOS C PACKAGE 


Save $20 when you order this special package. You’ll receive: 


-Dr. Dobb’s Toolbook of C 

-The Small-C Handbook with the MS/PC DOS 
Addendum 

«The Small-C Compiler on disk 

-The Small Tools text-processing programs on disk, 
with manual all for only $82.95 


MS/PC-DOS C Package Item #005B $82.95 


TO ORDER: returN THE FORM AT THE END OF THE CATALOG, OR 
CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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DR. DOBB’S LATEST RELEASES 
DR. DOBB’S TOOLBOOK OF 68000 PROGRAMMING 


In this complete collection of practical programming tips and 
techniques for the 68000 family, you’ll find the best articles on 
68000 programming ever published in Dr. Dobb’s, along with 
new material from 68000 experts. You’ll learn about the most 
important features of the 68000 microprocessor from a full de- 
scription and concise discussion of its history and design. And, 
useful applications and examples will show you why computers 
using the 68000 family are easy to design, produce and 
upgrade. Contents include: 


an Introduction to the 68000 Family 

¢ 68000 Instruction Set 

Development Tools 

¢ Bringing Up the 68000: A First Step 
¢ A 68000 Cross-Assembler 

Useful 68000 Routines and Techniques 


e A Simple Multitasking Kernel for Real-Time Applications 
e The Worm Memory Test 
¢ A Mandelbrot Program for the Macintosh 


All programs are available on disk! 


In addition, an executable version of the 68000 Cross-Assem- 
bler can be purchased along with the source code and documen- 
tation for $25. (Requires one or more disk drives and either 
CP/M-80, CP/M 2.2 with 64 bytes or MS-DOS with 128 
bytes) 
Dr. Dobb’s 68000 Programming Toolbook Item #040 $29.95 
68000 Toolbook with Disk Item #041 $49.95 
Please specify one of the following disk formats: CP/M 8”, Os- 
borne, Macintosh, Amiga, Atari 520st, MS-DOS 
68000 Cross-Assembler Item #042 $25 


STAT TOOLBOX FOR TURBO PASCAL 


The STAT TOOLBOx is two statistical packages in one! 
Whether you’re a programmer looking for tools to build your 
own applications, or a user who wants a complete, fully func- 
tioning package, the STAT TOOLBOX will bring convenience, 
power and versatility to your statistics programs! 

The STAT TOOLBOx is written in Turbo Pascal and includes 
full source code. It contains two complete packages: 

A reference disk and manual 

Flexible, time-saving building blocks allow you to customize 
statistical applications to fit your needs. You’ll find: 

¢ statistical distribution functions; 

e random number generation; 

e basic descriptive statistics 

* parametric and non-parametric statistical testing. 


¢ bivariate linear regression, multiple and polynomial 
regression 
e automatic best curve selection 


A demonstration disk and manual 

The demonstration package includes fully functioning statisti- 
cal programs, and two data management programs. In addition 
to these practical tools, files containing sample data will help 
users learn to enter, edit, maintain and manipulate data. 

High resolution graphics capabilites include drawing histo- 
grams and regression lines, and plotting residuals for regression 
analysis. (Borland’s Turbo Graphic’s Toolbox is required) 

For IBM PC’s and compatibles. Turbo Pascal version 2.0 or lat- 
er, and PC-DOS 2.0 or later are required. 


Stat Toolbox Item #050 $49.95 


IAMING DOS sy THOM HOGAN 


Learn how to make DOS work for YOU! Taming DOS will take 
you beyond the basics, picking up where your DOS manual 
leaves off. You'll find batch files and DOS enhancements that 
extend the power of DOS so you can work more accurately and 
efficiently. And, you’ll learn how to customize DOS to fit YOUR 
needs, saving you time and frustration every time you use it. 
Taming DOS will show you how to create a memory-resident 
clock, rename subdirectories and change file attributes. You'll 
learn more about what’s on your disk and how to protect it easi- 
ly, how to create configurable AUTOEXEC.BAT files and un- 
derstand redirection and piping. You’ll find: 
¢ how to customize CONFIG.SYS and use 

ANSILSYS to change the appearance of DOS 
* extensive batch file coverage 
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* example routines using redirection, including redirection op- 
erators, filters, and pipes 

¢ DOS enhancement programs that are ready to use, with exe- 
cutable commands. 

¢ Full source code, allowing you to alter programs and create a 
custom system. 

The book includes assembly language programs that allow you 

to manipulate DOS at its lowest form. An assembler is not 

needed to enter the programs; Taming DOS presents an alterna- 

tive method for anyone with BASIC on their machine. The pro- 

grams, including batch files and DOS enhancements are also 

available on disk along with source code. 

Taming DOS Item #060 

Taming DOS with disk Item #061 


$19.95 
$34.95 


TO ORDER: return THE FORM AT THE END OF THE CATALOG, OR 
CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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STRUCTURED PROGRAMMING 


Listing FIVE (Listing continued, text begins on page 120.) 


Funct, Derivative, h, Diff : FLOAT; 


begin 
loop 
if ABS(Guess) > 1.0 then h := 0.01 * Guess; 
else h := 0.01; 


end if; 


Funct := F (Guess); 

Derivative := (F(Guess + h) - Funct) / h; 
Diff := Funct / Derivative; 

Guess := Guess - Diff; 


Max Iter := Max Iter - 1; 

if Max_Iter < 0 then 
raise Diverge; 

end if; 


if ABS(Diff) <= Accuracy then exit; end if; 
end loop; 


PUT (Guess) ; 


end Newton; 


procedure Bisection(A, B, Accuracy : FLOAT; Max_Iter : INTEGER) is 
-- Bisection method to find the root of a function 


Mean, FA, FB, FM : FLOAT; 


begin 
FA := F(A); FB := F(B); 
-- Get midpoint estimate for the root 
Mean := (A + B) / 2.0; 


while ABS(A - B) > Accuracy loop 


FM := F (Mean); 
-- Does A and Mean have same function sign? 
if FM * FA > 0.0 
then 
A := Mean; FA := FM; 
else 
B := Mean; FB := FM; 
end if; 


-- Get midpoint estimate for the root 
Mean := (A + B) / 2.07 


Max Iter := Max Iter - 1; 
if Max Iter < 0 then 
raise Fatal Error; 
end if; 
end loop; 


PUT (Mean) ; 


end Bisection; 


begin -- Root -- 
PUT(“Enter first guess for the root "); GET (Guessl)}; NEW_LINE; 
PUT(“Enter second guess for the root "); GET(Guess2); NEW_LINE; 
PUT(“"Enter desired accuracy"); GET (Accuracy); NEW_LINE; 
PUT(“Enter maximum number of iterations "); GET (Max_Iter); 
NEW_LINE; NEW_LINE; 
PUT (“Root = “); 
begin -- start outer exception handler 
-- Try Newton's method first 
Newton (Guessl, Accuracy, Max Iter); 
exit; -- terminate program successfully 
exception 
when NUMERIC ERROR | Diverge => 
begin -- start inner exception handler 
-- This method will definitely work, but is slower 
Bisection(Guessl, Guess2, Accuracy); 
exit; -- terminate successfully with second method 
exception 
when others => 
PUT(“Fatal Error. Cannot recover"); 
NEW_LINE; 
end; -- inner exception handler 
end; -- outer exception handler 


end Root; End Listing Five 


Listing 6. The clean up method used in exception handlers. 
with TEXT_I0; use TEXT_IO; 

procedure Root is 

Result, Guess, Accuracy : FLOAT; 


Max Iter : INTEGER) 
Diverge : exception; 


function F(X : FLOAT) return FLOAT is 


begin 
return X * X * X = 5.0; 
end F; 


procedure Newton(Guess, Accuracy : FLOAT; Max_Iter : INTEGER) is 
-- Newton's method to find the root of a function 


Funct, Derivative, h, Diff : FLOAT; 


begin 
loop 
if’ ABS(Guess) > 1.0 then h := 0.01 * Guess; 
else h := 0.01; 
end if; 


(continued on next page) 











Here’s why you should choose Periscope as your debugger... 


You'll get your programs running fast. “It works 
great! A problem we had for three weeks was 
solved in three hours,” writes Wade Clark of 
MPPi, Ltd. 


You’ll make your programs solid. David Nanian 
says, “I can’t live without it!! BRIEF, a text 
editor my company wrote, would not be as stable 
as it is today without Periscope.” 


You'll protect your investment. We won’t forget 
you after the sale. You'll get regular software 
updates, including a FREE first update and 
notice of later updates. You’ll get technical help 
from Periscope’s author. And you'll be able to 
upgrade to more powerful models of Periscope if 
you need to. One Periscope user writes, “ 


your support has won over even the heart of this 
hardened programmer!” 


You deserve the best. Thousands of programmers 
rely on the only debugger that PC Tech Journal 
has ever selected as Product of the Month 
(1/86). You owe it to yourself to find out why, 
first hand. 


You can try it at no risk. You get an uncondi- 
tional 30-Day, Money-Back Guarantee, so you 
can’t lose. 


Start saving time and money now — order toll- 
free, 800/722-7006. Use MasterCard, Visa, 
COD, or a qualified company purchase order. As 
one user puts it, Periscope is “one of the rare 
products, worth every penny!” 


Periscope I, software, manual, 
protected memory board and 


Breakbone swith... i oe gaa $295 
Periscope II, software, manual, and 

brPakout switeh:. 255 2sc5he kes $145 
Periscope II-X, 

software and manual ............... $115 


Add shipping - $3 US; $8 Canada; $24 elsewhere. 
Ask about air shipment if you can’t wait to get 
your programs up and running! 


PERIS E 

by 

Data Base Decisions, 14 Bonnie Lane, 
Atlanta, GA 30328, 404/256-3860 
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STRUCTURED PROGRAMMING 


Listing Six (Listing continued, text begins on page 120.) 


Funct := F (Guess); 

Derivative := (F(Guess + h) -— Funct) / h; 
Diff := Funct / Derivative; 

Guess := Guess - Diff; 


Max Iter := Max Iter - 1; 

if Max Iter < 0 then 
raise Diverge; 

end if; 


if ABS(Diff) <= Accuracy then exit; end if; 
end loop; 


NEW LINE; NEW LINE; 
PUT ("Root = “); PUT (Guess); 
NEW LINE; NEW_LINE; 

end Newton; 


begin -- Root -- 
PUT ("Enter guess for the root “); GET(Guess); NEW LINE; 
PUT (“Enter desired accuracy”); GET (Accuracy) ; NEW LINE; 
PUT(“Enter maximum number of iterations “); GET(Max_Iter); 
loop 


begin -- start exception handler 
-- Try Newton's method first 
Newton (Guess, Accuracy, Max Iter); 
exit; -- exit open loop and terminate program successfully 
exception 
when Diverge => 
PUT (“Enter guess for the root "); 
GET (Guess) ; NEW_LINE; 
end; -- exception handler 
end loop; 


end Root; End Listing Six 


TURBO PASCAL GENERATOR 


THE GTP PROFESSIONAL MODEL 


Generate error-free Turbo Pascal source code for: 


DATABASES MENUS 
SCREENS REPORTS 


Build complete, working programs in minutes! 


FEATURES EASY 

@ Indexed Data Bases 1. Paint-the-screen 

Multiple Screens 2. Define fields & calculations 
Automatic Updating 3. Generate, compile & RUN 

Built-in Edits FLEXIBLE 

Retrieval Facility — 100% Turbo Pascal 

Automatic File Build — Modify in Pascal under Turbo's Editor 
Quick Screen Handling — Extensions are easy with 130 page 
Speedy DB Access Programmer Reference manual 
Context Sensitive HELP 100 documented source code 

Full Keyboard Support routines included 


NOT Copy Protected NO Royalty Fees NO Run-time Library Required 


Requires: IBMPC (100% compatible) 256K RAM 2 Disk Drives 
PC-DOS 2.0+ Turbo Pascal 3.0 from Borland International 


PRICE $200.00 
CALL FOR QUANTITY DISCOUNTS 
VISA/MC — Check — Money Order — No COD or Purchase Orders 
Texas Residents: add $12.25 Sales Tax 
Outside US & Canada’ add $10.00 Air Postage and make payment by 
credit card or money order in U.S, Funds. 


ALLEN, EMERSON & FRANKLIN 
P.O. Box 928 

Katy, TX 77492 

(713) 391-8570 
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Listing Seven 


Listing 7. Module SafeLib0O, a subset of MathLibO with error 


trapping features. 


DEFINITION MODULE SafeLib0; 
(* Definition module of SafeLib0O, the safer version of MathLibO *) 


(* The EXPORT is not needed for new Modula-2 definition *) 
EXPORT QUALIFIED SQRT, LN, EXP, EXPRANGE; 


(* Largest argument for exp(X) that yields exp() = 9.9999E+99 *) 
CONST EXPRANGE = 230.26; 


PROCEDURE SQRT(X : REAL; VAR ArgumentERROR : BOOLEAN) : REAL; 
(* Square root function with an argument error flag *) 


PROCEDURE LN(X : REAL; VAR ArgumentERROR : BOOLEAN) : REAL; 
(* Natural logarithm function with an argument error flag *) 


PROCEDURE EXP(X : REAL; VAR ArgumentERROR : BOOLEAN) : REAL; 


(* Exponential function with an argument error flag *) 


PROCEDURE GetNext (Current, MaxFlag : CARDINAL; 
VAR Found : BOOLEAN; 
ErrorFlag : ARRAY OF BOOLEAN) : CARDINAL 


END SafeLibo. 


IMPLEMENTATION MODULE SafeLib0; 
FROM MathLibO IMPORT sqrt, exp, ln; 


PROCEDURE SQRT(X : REAL; VAR ArgumentERROR : BOOLEAN) : REAL; 
(* Square root function with an argument error flag *) 


BEGIN 
ArgumentERROR := FALSE; 
IF X < 0.0 THEN 
ArgumentERROR := TRUE; 
X := ABS (X) 
END; 
RETURN sqrt (X) 


END SQRT; 


PROCEDURE LN(X : REAL; VAR ArgumentERROR : BOOLEAN) : REAL; 
{* Natural logarithm function with an argument error flag *) 
ELSE X := 10.0 


RETURN ln (X) 


END LN; 


PROCEDURE EXP(X : REAL; VAR ArgumentERROR : BOOLEAN) : REAL; 
(* Exponential function with an argument error flag *) 


BEGIN 
ArgumentERROR := FALSE; 


IF X > EXPRANGE 
THEN 
ArgumentERROR := TRUE; 


BEGIN 
ArgumentERROR := FALSE; 


IF X <= 0.0 THEN 


ArgumentERROR := TRUE; 
IF X < 0.0 THEN X := ABS(X) 


X := 1.0 / EXPRANGE 
END; 


RETURN exp (X) 
END EXP; 
PROCEDURE GetNext (Current, MaxFlag : CARDINAL; 
VAR Found : BOOLEAN; 
ErrorFlag : ARRAY OF BOOLEAN) : CARDINAL; 


VAR Last : CARDINAL; 
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BEGIN 

Last := HIGH (ErrorFlag)? 

IF MaxFlag > Last THEN MaxFlag := Last END; 

Found := FALSE; 

WHILE (Current <= Last) AND (NOT Found) DO 
IF ErrorFlag(Current]) THEN Found := TRUE END; 
INC (Current) 7 

END; 


RETURN Current 
END GetNext; 


END SafeLib0. 


End Listing Seven 


Listing Eight 


Listing 8. Mcdule SafeLibl, a second alternate subset of 
MathLibO with error trapping features. 


DEFINITION MODULE SafeLibl; 
(* Definition module of SafeLibl, the safer version of MathLibl *) 


(* The EXPORT is not needed for new Modula-2 definition *) 
EXPORT QUALIFIED SQRT, LN, EXP, EXPRANGE, 
MAXERRORSTACK, ErrorStack; 


(* Largest argument for exp(X) that yields exp() = 9.9999E+99 *) 
CONST EXPRANGE = 230.26; 
MAXERRORSTACK = 50; 


VAR ErrorStack : RECORD 
HeightErrorStack : [0..MAXERRORSTACK]; 
FuncName : ARRAY [1..MAXERRORSTACK]) OF 
ARRAY [0..3] OF CHAR 


END; 
PROCEDURE SQRT(X : REAL) : REAL; 
(* Square root function *) 


PROCEDURE LN(X : REAL) : REAL; 
(* Natural logarithm function *) 


PROCEDURE EXP(X : REAL) : REAL; 
(* Exponential function *) 


END SafeLibl. 


IMPLEMENTATION MODULE SafeLibl; 
FROM MathLibO IMPORT sqrt, exp, ln; 


PROCEDURE SQRT(X : REAL) : REAL; 
(* Square root function *) 
BEGIN 
IF X < 0. THEN 
PushErrorStack ("“SQRT") ; 
X := ABS (X); 
END; 


RETURN sqrt (X) 
END SQRT; 
PROCEDURE LN(X : REAL) : REAL; 
(* Natural logarithm function *) 
BEGIN 
IF X <= 0.0 THEN 
. ArgumentERROR := TRUE; 
IF X < 0.0 THEN X := ABS (X) 
ELSE X := 10.0 
END; 
END; 
RETURN ln (X) 
END LN; 


PROCEDURE EXP (X : REAL) : REAL; 
(* Exponential function *) 


(continued on next page) 
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AT LAST: Professional 
Typesetting Capability 
For PC Users 


With PC Tpx — the best-selling full 


implementation of Professor Don Knuth’s 
revolutionary typesetting program TRXx. 


FINEST Typeset Quality Printing From: 
dot matrix laser phototypesetter 


oo 
i=1 
Ami 60-6 Amn 


WIDEST Range Of Output Device Drivers: 


e Epson FX, LQ e HP LaserJet* 

e Toshiba e Apple LaserWriter 

e Corona LP-300* e APS-5 phototypesetter 
e Screen preview, with EGA or Hercules card 


MOST COMPLETE Product Offering: 


PC TX (not copy protected) includes the following: 


e Our specially written PC TX Manual, which en- 
ables you to start using TX right away. 


e Custom “macro packages” that provide formats 
for letters, manuals, technical documents, etc. 


e The JATRX document preparation system, a full- 
featured macro package for preparing articles, 
books, reports, etc., and IATR#X User’s Manual. 


e AyS-TEX, developed by the Amer. Math. Society . 
for professional mathematical typesetting. 


Site licenses, volume discounts. and interfaces to 
PC Paintbrush, PC Palette, FancyFont and Fontrix 
are also available. 


PRICED FROM ONLY $249.00! 


(Printer drivers and interfaces additional.) 


Q11 one Qin 


Qa21 ere. Qn oF ie 
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_ Laser printer, 
fonts & software 


from $2995.00 





For IBM PC/XT, AT or compatible, DOS 2.0 or higher, and 
512K RAM. Hard disk required for printer drivers and fonts. 
*HP LaserJet and Corona require additional interface boards. 


For more information call or write: 


Personal TpxX, Inc. 


20 Sunnyside, Suite H, Mill Valley, CA 94941 (415) 388-8853 


This ad, with space for the photograph, produced by PC TprxX. 
Typeset on the Epson F X80, the Corona LP-300 laser printer, 
and the Autologic APS-5 phototypesetter. 


TeX is a trademark of the American Mathematical Society. Manufac- 
turers’ product names are trademarks of individual manufacturers. 
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STRUCTURED PROGRAMMING 


Listi NG E ight (Listing continued, text begins on page 120.) 


BEGIN 


IF X > EXPRANGE 
THEN 
ArgumentERROR := TRUE; 
X := 1.0 / EXPRANGE 
END; 


RETURN exp (X) 


END EXP; 


PROCEDURE ClearErrorStack; 


BEGIN 
ErrorStack.HeightErrorStack := 0 
END ClearErrorStack; 


PROCEDURE PushErrorStack (Name : ARRAY OF CHAR)? 


VAR I : CARDINAL; 


BEGIN 
WITH ErrorStack DO 
INC (HeightErrorStack) ; 


I := 0; 

WHILE (I <= HIGH(Name)) AND (Name[I] <> OC) DO 
FuncName[HeightErrorStack,I] := Name[I} 

END; 


IF I < HIGH(Name) THEN FuncName[(I+1] := OC END; 


END; (* WITH *) 


END PushErrorStack; 


PROCEDURE InError() : BOOLEAN; 
BEGIN 

RETURN (ErrorStack.HeightErrorStack > 0) 
END InError; 


BEGIN (* Module initialization *) 
ClearErrorStack 
END SafeLibl. 


End Listing Eight 


Listing Nine 


Listing 9. Turbo Pascal matrix inversion program using 


Turbo 


Extender utilities. 


PROGRAM INVERT; 


(* Program to test speed of floating point matrix inversion. 
(* The program will form a matrix with ones' in every member 
(* except the diagonals which will have values of 2. 


CONST MAX = 140; 


RArowsPerPage = 20; 
RAcolsPerPage = 20; 
RApagesDown = 7; 
RApagesAcross = 7; 


TYPE RAelementType = REAL; 
(*SI RARRAY.INC*) 


VAR J, K, L : INTEGER; 
DET, PIVOT, TEMPO : 
A : RAarrayPtr; 
CH : CHAR; 


REAL; 


PROCEDURE SHOW MATRIX; 


BEGIN 
FOR J := 1 TO MAX DO BEGIN 
FOR K := 1 TO MAX DO BEGIN 
WRITE (getRA(A,K,J)); 
WRITE(' *); 
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J 
nA 
= 


END; 


END; 
WRITELN; 
END; 


BEGIN 


setupRa; (* SETUP BIGARRAY *) 
makeRA(A, 1.0, noinit); 


(* Creating test matrix *) 
FOR J := 1 TO MAX DO BEGIN 
FOR K := 1 TO MAX DO 
setRA(A, K, J, 1.0); 
setRA(A, J, J, 2.0) 
END; 


(* The test below will ensure that the user does not spend *) 
(* a lot of time looking at a rather obvious matrix when its *) 
(* size is large. *) 
IF MAX <= 10 THEN BEGIN 
WRITELN (‘Matrix is '); 
SHOW_MATRIX; 
WRITELN; WRITELN; 
END; 


WRITELN (‘Starting matrix invertion'); 
DET := 1.0; 
FOR J := 1 TO MAX DO BEGIN 
PIVOT := getRA(A,J,J);7 
DET := DET * PIVOT; 
setRA(A,J,J,1.0); 
FOR K := 1 TO MAX DO 
setRA(A,J,K, (getRA(A,J,K) / PIVOT));? 


FOR K := 1 TO MAX DO 
IF K <> J THEN BEGIN 
TEMPO := getRA(A,K,J); 
setRA(A,K,J,0.0);7 
FOR L := 1 TO MAX DO 
setRA(A,K,L, (getRA(A,K,L) - getRA(A,J,L) * TEMPO)); 


END; 
END; (* End of outer for-loop *) 
WRITELN (‘PRESS <CR> to view matrix '); READLN(CH); WRITELN; 
WRITELN (‘The inverse matrix is '); 
SHOW_MATRIX; 
WRITE (‘Determinant = '); 
WRITE (DET) ; 
WRITELN; WRITELN; 


End Listings 


Dr. Dobb’s Journal, November 1986 








PAINLESS WINDOWS. 





Windows. Data Entry. Menus. 
Finally, a C programmers’ tool that makes 
them as easy to use as prinif(). 

With Greenleaf DataWindows’”, 


you move in quantum leaps! 





GEES Snazzy Window Treatments = 


DataWindows represents an important 
breakthrough in C programming tools. It 
sets you free so you can create exciting 
programs quickly and easily, saving both 
time and money! Developed to work with 
the IBM PC, XT, AT, compatibles, and 
MSDOS or PCDOS, DataWindows is a 
carefully tooled system of C functions which 
will jazz up your programs with 
unprecedented efficiency. 


Greenleaf DataWindows is integrated 
windows, transaction data entry, pop-up, 
pull-down, and Lotus style menu systems 
with: 
= Screen Management. You don’t have to 
remember what’s on the display or the 
sequence in which you put it there. 
DataWindows does the grunt work. 
There are no restrictions. 


= Transaction Data Entry. Data entry 
windows can have any number of fields 
with sophisticated options for reading 
many data types. Calls are made to help, 
validation, and other functions. Full 
featured text editing, protected and 
mandatory fields, dBASE type picture 
strings, context sensitive help, validation 
of fields and transactions, redefinable 
keys, password entry, attribute control, 
keyboard idle and much more. 


= Device Independence. It detects the type 
of display adapter your computer is using 
and adjusts to it automatically for CGA, 
EGA, or monochrome. Logical video 
attributes are easy to use for color or 
monochrome. 


= Compatibility. Runs with Microsoft 
Windows and IBM TopView. 


= The Greenleaf Tradition of Quality. Reliable 
products. Professional documentation that 
gets you up and running quickly and 
keeps you there. Reference card. 
Newsletter and Bulletin board. 


IBM, Microsoft & dBase, are registered trademarks of International 
Business Machines, Microsoft Corporation & Ashton-Tate respectively. 
PCDOS, IBM PC, XT, AT, & TopView are trademarks of IBM; MSDOS 
and Microsoft Windows are trademarks of Microsoft Corporation. 









HEE Stop Window Shopping a 
Order Today. Or call toll free for a free 


demo of the windows library that makes 
all the others obsolete. 


Order any of these high performance 
tools by calling your dealer or 
1-800-523-9830 today. Specify compiler 
when ordering. Add $8 for UPS second 
day air, or $5 for ground. Texas residents 
add sales tax. MasterCard, VISA, P.O., 
check, COD. In stock, shipped next day. 


Greenleaf DataWindows $225 
DataWindows Source Module $225 
The Greenleaf Comm Library v2.0 $185 
The Greenleaf Functions v3.0 $185 
Digiboard Comm/4-II $325 
Digiboard Comm/8-II $535 





GREENI.EAI- 
S oo 
1411 LeMay Drive, Suite 101 
Carrollton, TX 75007 
Call Toll Free 
1-800-523-9830 
In Texas and Alaska, call 


214-446-8641 
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RS Window Dressings BRR on 


= Simple or Complex Windows. Up to 254 
powerful overlaid windows 
simultaneously, all with just one kind of 
window to remember! Yet any window 
can be from one character to 32K! 


= Easy Window Operations. DataWindows 
lets you move, zoom, frame, title, change 
colors, titles, frames, size, location, and 
make windows visible or invisible at will! 
Functions set cursor, attributes, and write 
data to any window or “current window’. 
Word wrap, auto scroll, keyboard 
functions. 


= Write to Any Window Any Time. Windows 
may be visible, overlaid, or invisible, and 
you can write to them anyway. What you 
write will be seen when the windows 
become visible. 


= DataWindows is fast! It writes directly to 
video memory (in some modes). 


= Easy to save! Any window, complete with 
attributes, can be saved on disk quickly 
and efficiently. 


= Source code available. No royalties. 


ees Also from Greenleut: Sees 


The Greenleaf Functions v3.0 
The most complete, mature C language 
function library for the IBM PC, XT, AT 
and close compatibles. Includes over 225 
functions — DOS, disk, video, color text 
and graphics, string, time/date, keyboard, 
disk status and Ctrl-Break functions plus 
many more. 


The Greenleaf Comm Library 
Our 2.0 version is the hottest 
communications facility of its kind. Over 
120 functions — ring buffered, interrupt 
driven asynchronous communications for 
up to 16 ports simultaneously with 
XMODEM, XON/XOFF, many many 
sophisticated features. 


We support all popular C compilers for 
MSDOS/PCDOS: Microsoft, Lattice, 
Computer Innovations, Aztec, DeSmet, 
and others. 





THE PROGRAMMERS SHOP 


helps save time, money and cut frustrations. Compare, evaluate, and find products. 





RECENT DISCOVERY 
Baby 34, 36 RPG II by California 
Software - complete mini RPG 
environments for PC include 
compiler, editor (SEU), OCL 
processor. Screen gen., sort, 
data exchange, workstation I/O. 
Separate products for compatibility 
w/IBM System /38, /36, /34. PC $1250 


Al-Expert System Dev t 


Arity System-incorporate with C 
programs, rule & inheritance MS $ 295 
Experteach - Powerful, no limit on 

memory size. Samples PC-3 399 
EXSYS - Improved. Debug, file & 

external program access. MS $ 339 
Insight 2+ - dB2, language. MS $ 879 
LPA MicroProlog Intro w/ APES MS $ 149 
LPA MicroProlog Prof. w/APES MS $ 595 
Others: ESP ($845), Expert Choice ($449) 


Al-Lisp | 


BYSO - Common, MacLISP compatible. 





250+ functions, fast PC $150 
Microsoft MuLisp 85 MS $ 199 
PC Scheme LISP - by TI PC’ $ ° 95 


TLC LISP - classes, compiler. MS $ 225 

TransLISP - learn fast MS $ 85 

Others: IQ LISP ($155), UNX LISP ($59), 
IQC LISP ($269), WALTZLISP ($149) 


Al-Prolog 


APT - Active Prolog Tutor - build 
applications interactively ie DS 
ARITY Standard - full, 4 Meg 
Interpreter - debug, C, ASM PC §$ 350 
COMPILER/Interpreter-EXE PC $ 795 
With Exp Sys, Screen - KIT PC $1250 
LPA MacProlog - Complete incremental 
compiler and an interpreter MAC $ 295 


LPA MicroProlog - intro MS $ 99 
LPA MicroProlog Prof. - full 
memory MS $ 359 


Prolog-86 - Learn Fast, Standard, 

tutorials, samples MS $ 89 
Prolog-86 Plus - Develop MS $ 229 
TURBO PROLOG by Borland PC $ 69 
Others: Prolog-I ($95), Prolog-2 ($859) 


Al-Other 


METHODS - SMALLTALK has 
objects, windows, 

Personal Consultant by T.I. 

Q’NIAL - Combines APL with LISP. 


Source or binary. PC: 3 359 
Smalltalk-80 - Xerox version PC $ 995 
Smalltalk/V-graphics PC $ 89 


Ja Gael-)5 


ASMLIB - 170 + Microsoft MASM 
compatible routines for graphics, 
floats, trig. Full source. PC SASS 


Test Software - capture and replay 
| complete successful test session. 
Automatically rerun when your code 
changes with Showcase. Pe}. 135 





Free Literature 
Compare Products 


Evaluate products. Compare competitors. Learn about new 
alternatives. One free call brings information on just about 
any programming need. Ask for any “Packet” or Addon 
Packet 0 AIO ADA, Modula 5 BASIC G “C” 0 COBOL 0 
Editors CO FORTH 0 FORTRAN 0 PASCAL 0 UNIX/PC or 
0 Debuggers, Linkers. 


Our Services: 
* Programmer’s Referral List * Dealers Inquire 
* Compare Products + Newsletter 
* Help find a Publisher * Rush Order 
* Evaluation Literature FREE * Over 700 products 
« BBS-7 PM to7 AM 617-826-4086 + National Accounts Center 


Basic Development System - for | 
BASICA; Adds Renum, more. PC $ 105 
Basic Development Tools by 
Sterling Castle Pe S. 99 
Basic Windows by Syscom PC S95 
BetterBASIC - all RAM, modules 


Structure. Full BASICA PC $165 
8087 Math Support PC $ 89 
Run-time Module PC $ 229 


Better Tools - for Better Basic PC $ 95 
CADSAM FILE SYSTEM - full 

ISAM in MBASIC source. MS $ 75 
GoodBas - maintain code PC $ 95 
LPI Basic - MS compatible UNIX $1100 
Prof. Basic - Interactive,debug PC $ 79 


8087 Math Support PC... 1 47 
QuickBASIC V2.0-New interface PC $ 75 
TRUE Basic - ANSI PC $ 119 

Run-time Module PC $ 459 

Cobol 
LPI Cobol - ANSI °74 UNIX $1200 
Macintosh COBOL - full MAC $ 459 
MBP - Lev. II, native MS $ 885 


MicroFocus Professional - full PC Call 
Microsoft Cobol Tools - xref, debugger 

w/source support. Xenix $359 PC $ 219 
Microsoft Version II - upgraded. 


Full Lev. II, native, screens. MS $ 479 
Realia - very fast MS $ 839 
Ryan McFarland COBOL MS $ 699 


COBOL-8X MS $1049 


Editors for erent 


BRIEF Programmer’s Editor - undo, 

windows, reconfigure PC Call 
EMACS by UniPress - powerful, 

multifile, windows Source:$929 $ 299 
Epsilon - like EMACS, full 

C-like language for macros. PC $ 169 
Lattice Screen Editor - multiwindow, 

multitasking Amiga $100 MS $ 109 
PC/VI - Custom Software PC $ 129 
PMATE - power, multitask 80/86 $ 149 


C Libraries-Communications 


Asynch by Blaise PC $ 149 
Multi-Comm - use w/Multi-C PC $ 149 
Software Horizons pack 3 PC $ 119 
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Seeks 


Unishell - Bourne UNIX shell script 
compiler translates to C and runs 
faster. Portable, hand optimizable 
code. Use as C program generator. 
PC .$395 


C Language-Compilers 
AZTEC C86 - Commercial PC $499 
C86 by CI - 8087, reliable MS $299 
Datalight C - fast compile, good code, 

4 models, Lattice compatible, Lib 





source. Dev’rs Kit PC $ 85 
HOT C - new, intriguing PC $ 85 
Lattice C - from Lattice MS $299 
Mark Williams - w/debugger MS $399 
Microsoft C 4.0- Codeview MS $299 
Wizard C - Lattice C compatible, 

full sys. II, lint, fast. MS $389 


C Language-Iinterpreters 


C-terp by Gimpel - full K & R MS $239 
INSTANT C - Source debug, 

Edit to Run-3 seconds, .OBJs MS $389 
Interactive C by IMPACC Assoc. 

Interpreter, editor, source, 

debug. PC $225 
Introducing C-self paced tutorial PC $109 
Run/C Professional MS $189 
Run/C Lite - improved MS $109 


C Libraries-General 


Blackstar C Function Library PC $ 79 
C Essentials - 200 functions PC $ 85 
C Food by Lattice-ask forsource MS $109 
C Scientific Subroutines - Peerless MS $139 
C Tools Plus (1 & 2) PC $149 
C Utilities by Essential - Comprehensive 
screen graphics, strings, source. PC $139 
C Worthy Library - Complete, machine 
independent MS $269 
Entelekon C Function Library PC $119 
Entelekon Superfonts for C PC $ 45 
Greenleaf Functions-portable, ASM $139 
PforCe by Phoenix - objects PC $299 


C Libraries-Files 


FILES: C Index by Trio - full B + 
Tree, vary length field, multi compiler 
/File is object only MS $ 89 
/Plus is full source MS $349 
CBTREE - Source, noroyalties MS $ 99 
CTree by Faircom- noroyalties MS $339 
dbVISTA - full indexing, plus optional 
record types, pointers, Network. 
Object only - MS C, LAT, C86 $159 


Source - Single user MS $429 
Source - Multiuser MS $849 
dBASE Tools for C PC $ 79 
dbc Isam by Lattice MS $199 


AtariST & Amiga 


We carry full lines of Manx, 
Lattice, & Metacomco. 


Amiga - LINT by Gimpel Amiga $ 79 
Cambridge LISP Amiga $200 
Lattice C ST, Amiga $139 
Lattice Text Utilities Amiga $ 75 
Megamax - tight, full ST $200 








THE PROGRAMMERS SHOP 





provides complete information, advice, guarantees and every product for Microcomputer Programming. 
Se he We ed ee cee Se a ee ee 


“FAMILIAR” 


EDITORS 


Order before 11/30/86 
and mention this ad for 
the special prices to the right. 


C Support-Systems 


Basic-C Library by C Source PC $139 
C Sharp - well supported. Source, 

realtime, tasks, state system PC $600 
C ToolSet - DIFF, xref, source MS $ 95 
The HAMMER by OES Systems PC $179 
Lattice Text Utilities MS $ 95 
Multi-C - multitasking PC $149 
PC LINT-Checker. Amiga $89 MS $119 
SECURITY LIB-add encrypt to MS C, 

C86 programs. Source $250 PC $125 


C-Screens. Windows. Graphics 


C Power Windows by Entelekon PC $119 





dBASE Graphics for C PC $ 79 
Curses by Lattice PC $109 
ESSENTIAL GRAPHICS - fast, 

fonts, no royalties PC $219 
GraphiC - new color version PC $299 


PC $295 
PC $209 
PC $219 
PC $139 
PC $159 
PC $239 
MS $199 


Multi-Windows - use w/ Multi-C 
Topview Toolbasket by Lattice 
View Manager for C by Blaise 
Vitamin C - screen I/O 
Windows for C - fast 

_ Windows for Data - validation 
ZView - screen generator 


Debuggers 
Advanced Trace-86 by Morgan 


Modify ASM code on fly. PC $139 
CODESMITH - visual, modify 

and rewrite Assembler PC $109 
C SPRITE - data structures PC $139 
DSD87 - by Soft Advances 

windowing, 8087 PC $ 95 
Periscope I - own 16K PC $249 
Periscope II - symbolic, “Reset 

Box,” 2 Screen PC $119 


Pfix-86 Plus Symbolic Debugger 
by Phoenix - windows 
Software Source by Atron - 
Lattice, MS C, Pascal, Windows 
single step, 2 screen, log file. MS $115 
w/Breakswitch $199 


4 -waels) a 


386 Assembler/Linker - Native or 
Cross Development. Full Microsoft 
MASM compatible plus 386/387 
extensions. PC $495 


PC $249 





=== HOURS 


8:30 AM - 8:00 PM EST. 









SPF/PC - very popular on IBM, TSO, and CMS 
KEDIT - like the XEDIT editor under IBM VM/CMS 
PC/EDT - like popular EDT editor for DEC VAX VMS 


After 
11/30 


$159 
$115 
$250 
$115 


Before 
11/30 


$139 
$ 99 
$209 
$ 99 


List 


$195 
$125 
$250 
$125 


SPF/PC 
KEDIT 
PC/EDT 
REXX 


Fortran & Supporting 





ACS Time Series MS $429 
Forlib + by Alpha - graphics and 

file routines, comm. MS $ 59 
MACFortran by Microsoft MAC $229 
MS Fortran link to C MS $219 
No Limit - Fortran Scientific PC $119 
RM/Fortran - enhanced “IBM 

Professional Fortran’”’ MS $395 


Scientific Subroutines - Matrix MS $149 
Statistician by Alpha MS $259 
Strings and Things - register, shell PC $ 59 


Multilanguage Support 


BTRIEVE ISAM MS $199 
BTRIEVE/N-multiuser MS $469 
CODESIFTER - Profiler. MS $109 


HALO Graphics - 115 + devices. 
Animation, engineering, business. 
Any MS language, Lattice, C86 PC $219 
PANEL - Create screen with editor, 
generates code. Full data validation, 
no royalties. Xenix $539, MS $229 


PolyLibrarian by Polytron MS $ 85 
PVCS Version Control MS $329 
Rtrieve - Btrieve front end MS $ 79 
Screen Sculptor - slick, thorough, 

fast, BASIC, PASCAL. PC $ 99 
Xtrieve - organize database MS $149 


ZAP Communications - VT 100, 
TEK 4010 emulation, file xfer. PC $ 95 


Pascal and Supporting 


ALICE - learn Pascal, Turbo 
compatible, interpreter PG? 3.79 
MetaWINDOW - graphics toolkit PC $139 
Microsoft PASCAL - faster MS $199 
MICROTEC PASCAL - 5 memory models, 
‘Tterators’’, 65 bit 8087 strings MS $665 
Pascal Pac with Tidy - formatter, 


utilities PC $ 69 
Pascal Tools - strings, screen PC $109 
Pascal Tools 2 - by Blaise MS $ 85 
Pfas - Portable Isam MS $185 
TurboHALO - 150 routines, IBM 

EGA, Hercules, more PC $ 95 
USCD Pascal - native code MS $ 69 
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Call for a catalog, literature, advice and service you can trust 





THE PROGRAMMER’S SHOP™ 
128-D Rockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 9/86 


LOOKING FOR 


386 Tools - We now carry Beta 
versions of aMASM superset and 
linker. Let us know about simulators, 
compilers, tools. Call “386 specialist.” 


Other Languages 


APL*PLUS/PC PC $ 469 
Artek ADA Compiler - DOD standard 


minus multitasking PC $ 469 
CLIPPER-dBASE Compiler MS $ 449 
Correct FORTH - ROMable PC $ 80 
ED/ASM - 86 by Oliver PC $ 85 
Lattice RPG II Compiler PC $ 639 
MacASM - fast MAC $ 99 
MasterForth - Forth ’°83 MACorPC $ 125 
Microsoft MASM - faster MS $ 109 
Modula 2 by Volition Systems MS $ 250 


Modula-2/86 Compiler by Logitech 

w/ 8087 ($105), 512K ($149). PC $ 65 
Pasm - by Phoenix MS $ 219 
SNOBOL4 + - great forstrings MS $ 85 
Turbo Edit/ASM - by Speedware PC $ 85 


Xenix-86 & Supporting 


Basic - by Microsoft $ 279 
Cobol - by Microsoft $ 795 
Fortran - by Microsoft Call 


MicroFocus Lev. II Compact COBOL$ 899 
Xenix Complete Development System $1149 


Other Products 


BSW Make - like UNIX make MS $ 85 
Dan Bricklin’s Demo Program PC $ 65 
dBrief - Customize BRIEF for dBASE 

development. with BRIEF $275. PC $ 95 
H Test/H Format - XT Fix PC $ 89 
Interactive Easyflow-HavenTree PC $ 129 
Link & Locate - tools to work with 


Intel and Tektronix projects. MS $ 329 
LMK - like UNIX make MS $ 149 
Microsoft Windows Per Su 55 
Microsoft Windows Software 

Development Kit PC $ 399 
Opt Tech Sort - sort, merge MS $ 119 
PMaker - by Phoenix PC $ 99 
Polymake by Polytron MS $ 79 
PS MAKE by UniPress MS $ 79 
SECRET DISK by Lattice PC $95 
SET:SCIL - manager revisions PC $ 299 
Shrink/Shrinkem - put more files 

on disk with spacemaker PC $ 150 
SoftEst - Manage projects. MS $ 350 
Synergy-Create user interfaces MS $ 375 
Texsys - control source MS $ 89 


Visible Computer: 8088 - Simulates 
demos or any .exe. com, Debugger. 
350 pg. tutorial, unprotected PC $ 69 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. Ask about 
COD and POs. All formats available. 

UPS surface shipping add $3/item. 





“It’s not often that I receive service from a 
company that I consider exceptional but 
you've managed to do it. . . 1 am impressed 
that you place the needs of your customer 
above making a “quick” profit and I hope 
to have the opportunity to do business with 
you again in the future.” 

White Pine Software, Inc. 












COLUMNS 


STRUCTURED PROGRAMMING 


Error Handling in Ada and Modula-2, Large Turbo Pascal Matrices 


n this issue I will discuss error 

handling (also known as excep- 
tions) in Ada and Modula-2. In the 
case of Modula-2, I will concentrate 
on handling errors for several math- 
ematical functions exported by the 
standard library MathLib0. The Pas- 
cal section of the column looks at 
writing programs to handle matrices 
with sizes greater than 64K using the 
Turbo Extender package. 


Exceptions in Ada 
Ada was designed for numerous ap- 
plications, including real-time sys- 
tems. The language's designers chose 
to tackle error handling effectively 
rather than pay it lip service as did 
the designers of standard Pascal and 
Modula-2. As a result, Ada recognizes 
an explicit error-handling mecha- 
nism, namely, the exception. The ba- 
sic concept behind exceptions is for a 
program to detect an error condition 
and direct the program flow control 
to resume at the exception handling 
area. No explicit GOTO statements are 
used, although their effect is still at- 
tained. Thus, programmers are re- 
lieved from using ‘‘defensive’ pro- 
gramming methods, as is the case 
with standard Pascal and Modula-2. 
Ada has five predefined exceptions 
—the CONSTRAINT_ERROR, NUMERIC 
_ERROR, PROGRAM_ERROR, STOR- 
AGE_ERROR, and TASKING_ERROR. 
Listing One, page 104, shows the pre- 
defined NUMERIC_ERROR exception 


by Namir Clement 
Shammas 


in use with a floating-point power 
function. In this example, the func- 
tion body consists of one statement 
followed by the exception handling 
block. Ada requires that such blocks 
be placed at the end of a program or 
routine (more about the scope of ex- 
ceptions later). Zero or negative values 
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for the Base variable are invalid argu- 
ments for the natural logarithm func- 
tion. The exception handling block 
examines the value assigned to Base. 
If it equals zero, the function returns a 
zero; otherwise, it returns the largest 
negative value that is supported by 
the implementation. Notice that if the 
arguments of function Power are val- 
id but large in magnitude, an over- 
flow occurs and the largest negative 
value is also returned. 

Ada allows you to define your own 
exceptions by declaring their names 
followed by : exception;. To invoke 
user-defined exceptions, use the raise 
keyword followed by the corre- 
sponding exception name. Listing 
Two, page 104, gives a general 
scheme for defining and raising ex- 
ceptions. Notice that the first when 
clause in the exception handling 
block uses the predefined NUMERIC 
_ERROR exception. The second when 
clause tackles negative absolute-tem- 
perature values, and the third clause 
deals with both negative pressures 
and volumes. The last when others 
clause serves as an otherwise catchall 
error trap. The listing shows how the 
if statement is used in raising user- 
defined exceptions. Notice how this 
Ada listing handles erroneous values 
without resorting to a series of nested 
if statements, as would be the case 
with Pascal or Modula-2. 

Ada enables you to use several ex- 
ception handlers and control their 
scope of action and so allows some 
exceptions to override others. Con- 
sider Listing Three, page 104, where 
procedure The_Boss defines the 
Boss_Angry exception and two local 


procedures, namely Command 
_Worker and Command_Foreman. 
There are two exception handlers for 
Boss_Angry—the first is located in- 
side procedure Command_Foreman, 
the other at the end of the main pro- 
cedure. When the main procedure 
starts executing, it first calls for pro- 
cedure Command_Worker. If the 
Boss_Angry exception is raised dur- 
ing the first direct call, the exception 
handler in the main procedure is in- 
voked. Assuming, on the other hand, 
that the above call proceeds smooth- 
ly, the main procedure resumes nor- 
mally and invokes procedure Com- 
mand_Foreman. The latter calls for 
procedure Command_Worker. If 
during this process the Boss_Angry 
exception is raised, the local handler 
is used instead of the global one. 

The role of exception handlers falls 
into the following categories: 


1. Halt program execution. 
2. Retry the program. 
3. Employ another 
approach. 

4.Clean up variables and resume 
program execution. 


method or 


Halting the program after displaying 
an appropriate error message is the 
least thing a program should do. This 
course of action uses Ada’s exception 
feature to a minimum because no at- 
tempt is made to remedy the error. 
The second approach to using ex- 
ception handlers retries a routine for 
a fixed number of times to prevent it 
from being trapped indefinitely. 
Thus, the program simulates a time- 
out. Listing Four, page 104, shows a 
simple example for handling errors 
associated with enumerated types. 
The procedure defines a new data 
type for the weekdays and creates a 
new set of customized I/O routines. 
The Time—Out constant is defined 
and set equal to 5, and a user-defined 
Wrong_Day exception is declared. 
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FORTRAN PROGRAMMERS 


Looking for the right PC FORTRAN language system? If you’re serious 
about your FORTRAN programming then you should be using F77L - 
LAHEY FORTRAN. 


“Lahey’s F77L FORTRAN is the compiler of choice. It’s definitely a 
‘Programmers FORTRAN,’ with features to aid both the casual and the 
professional programmer... F77L compiled the five files in a total of 12 
minutes, which was 4 times as fast as MS FORTRAN and an astounding 6 
times as fast as Pro FORTRAN” - PC Magazine 


Compare the features and performance of other PC FORTRANs with F77L 
and you will find that F77L is clearly the superior product. 


Full Fortran 77 Standard (F77L is not a subset)* Fast Compile - Increases productivity 
Popular Extensions for easy porting of mini *® Source On Line Debugger (Advanced 
and mainframe applications features without recompiling) 
COMPLEX*« 16, LOGICAL#1 and INTEGER*2 © Arrays and Commons greater than 64K 
Recursion - allocates local variables on Clear and Precise English Diagnostics 
the stack ¢ Compatibility with Popular 3rd Party 
IEEE - Standard Floating Point Software (i.e. Lattice C) 

Long variable names - 31 characters e Easy to use manual 

IMPLICIT NONE ¢ Technical Support from LCS 


© NEW FEATURE - NAMEL/ST 


F77L - THE PROGRAMMER’S FORTRAN 


$477.00 U.S. 
System Requirements: MS-DOS or PC-DOS, 256K, math coprocessor (8087/80287) 


FOR MORE INFORMATION: (702) 831-2500 


Lahey Computer Systems, Inc. International Dealers: 

P.O.Box 6091 England: Grey Matter Ltd., Tel: (0364) 53499 2 & ; 

Incline Village NV 89450 Denmark: Ravenholm Computing, Tel: (02) 887249 Editor's Chorce 

USA : Australia: Computer Transitions, Tel: (03) 537-2786 SK Magazine 
eas Japan: Microsoftware, Inc., Tel: (03) 813-8222 


SERVING THE FORTRAN COMMUNITY SINCE 1967 


MS-DOS & MS FORTRAN are trademarks of Microsoft Corporation.Pro FORTRAN refers to Professional FORTRAN a trademark of 
International Business Machines. 
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C CODE FOR THE PC 


source code, of course 


Power Tools for 
system builders™ 


eRe eee 


GraphiC 3.0 hi-res color plots . $300 
QC8s © Compiler 3 as x BOO 
Conmenrient GC oo ne ae ee 
Coders? folog in ©... ke cs $45 
dtemsiate Rules to Ges SS B80 
Teta fee ee SAN Se es be get a ee 
WPA SG, Ge Ie ko 2 ee ae 
Small-C compiler for 8088 ... . $20 
tiny-c interpreter & shell. . . . . $20 
Alisp 1.5a & tuiy-Prolog ... ...... $20 
Re eRe sis as a eee Nee ae 


The Austin Code Works 
11100 Leafwood Lane 
Austin, Texas 78750-8409 
(512) 258-0785 


Call today for our free catalog of design aids, 
compilers, libraries, debuggers, and support 
tools for Apple and IBM micro computers. The 
Power Tools catalog includes product descrip- 
tions, warranty and license terms, and all the 
information you need to make an intelligent pur- 
chase decision. 


TSF offers technical support, competitive pric- 
ing, free UPS shipping on orders over $100, anda 
reasonable return policy. Visa, MasterCard, and 
American Express accepted without surcharge. 
TSF helps you get your job done. 


Sample Prices: Call Toll Free 
MS Quick Basic $49.00 24 hrs a day/7 days a week 


Periscope II $129.00 Ask For Operator 2053 
DS Backup $64.95 


10 Diskette Mailers $4.95 800-543-6277 


Gimpel PC Lint $139.00 
PCMacBasic $100.00 Calif: 800-368-7600 


e Dept. C-2 ¢ 649 Mission Street 
it e San Francisco « CA 94105 
| e (415) 957-0111 


The Software Family™ 


Free shipping on prepaid orders No credit cards 
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“Before I chose Microsoft C, 


eee aU Oren Cat 
for my company. Now you can do 


the same in 2 hours.” 


“Call us. You can get Microsoft C or 
our comprehensive report on C by 
the day after tomorrow.” 


Bruce Lynch, President 
The Programmer's Shop 


The security of thorough research. It took Bill Davidsen 
six months to thoroughly evaluate all C products before 

he selected Microsoft C. For him, its tight code and UNIX 
System V™ compatibility were exactly what he needed. 
And now Version 4.00 includes CodeView, a source-level 
windowing debugger. 

Thanks to expert users like Bill, and The Programmer's 
Shop, you can enjoy that satisfied feeling of thorough 
product evaluation in just a few hours. 

We recommend evaluating software by also getting 
detailed information from several different sources, includ- 
ing unbiased reports and reviews. Bill agrees completely. 

n fact, he helped us compile the objective opinions of 
4 magazines, 14 users and 3 industry analysts in a 16-page 
report on C: The C Test. It can help you be absolutely sure 
of making the choice that’s best for you. And it’s abso- 
lutely free. | 


C for yourself. As an objective evaluation by users and 

ieee me alike, The C Test is one of the most compre- 
ensive and informative reports currently available on 

C development tools. It’s only available from 

The Programmer's Shop. And it’s yours free 

for the asking. Here’s what you'll find in it: 


The C Test ® Detailed Tech Specs 
= Benchmark Source Code = Magazine 
Reviews ® Users’ Feedback ® Perfor- 
mance Benchmarks ® User Study and » 
Profiles ® Test Drive Survey Results 
= 37 Compatible Products 

And if you're looking for even more C support, Micro- 
soft-compatible libraries for file management, graphics, 
screen control, object-oriented programming and other 
tools are ready to ship. 


The best programs for less. We think the only way 
to serve you is to give you the best programming alter- 
natives. The best recommendations for your needs. 

To deliver immediately. And this is how we do it. 







Bill Davidsen, Software Engineer 
Office Automation Group 





We start by giving you a choice of over 62 programming 
language implementations and 1/4 support programs. 
All from the same source. All competitively priced. 

Our informed programmers offer free advice whenever 
you call with any questions about any product. 

And when you place an order, we can rush it to you in 
48 hours or less. That’s the kind of service and support our 
10,000 customers have come to expect. 

Because we’ve become a success by giving the best 
advice for free and selling the best software for less. 

To order Microsoft C($279) or for your free copy of 
The C Test, simply call the toll-free number below: 


1-800-421-8006. In Massachusetts, call 1-800-442-8070. 


MICRSSOFT. C Compiler Version 4.00 
MICROSOFT C COMPILER 


= Produces fast executables and optimized code including elimination 
of common sub-expressions. NEW! 

= Implements register variables. 

= Small, Medium and Large Memory model libraries. 

= Compact and HUGE memory model libraries. NEW! 

= Can mix models with NEAR, FAR and the new HUGE pointers. 

= Library routines implement most of UNIX System V C library. 

= Start-up source code to help create ROMable code. NEW! 

= Full proposed ANSI C library support (except clock). NEW! 

= Link your C routines with Microsoft FORTRAN (version 3.3 or 
higher), Microsoft Pascal (version 3.3 or higher) or Microsoft 
Macro Assembler. 

= Microsoft Windows support and MS-DOS 3.1 networking support. 


MICROSOFT PROGRAM MAINTENANCE UTILITY. NEW! 
= Rebuilds your applications after your source files have changed. 
= Supports macro definitions and inference rules. 


OTHER UTILITIES. 
= Library Manager. 
= Overlay Linker. 


MICROSOFT CodeView 

WINDOW-ORIENTED SOURCE-LEVEL DEBUGGER. NEW! 

= Watch the values of your local and global variables and expressions 
as you debug. 

= Set conditional breakpoints on variables, expressions or memory; 
trace and single step. 

= Watch CPU registers and flags as you execute. 

= Debug using your original source code, the resulting disassembly 
or both intermingled. 


Microsoft C comes with a 30-day money-back guarantee from 
The Programmer’s Shop. 



































= EXE File Compression Utility. 
= EXE File Header Utility. 


UNIX System V is a trademark of AT&T Bell Laboratories. 
Microsoft is a registered trademark and CodeView is a trademark of Microsoft Corporation. 


THE PROGRAMMER’S SHOP 


The programmer's complete source for software, services and answers. 


128 Rockland Street, Hanover, MA 02339 


(617) 826-7531 
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STRUCTURED PROGRAMMING 
(continued from page 120) 


The for loop contains the main rou- 
tine body. The first statement inside 
the loop prompts the user to enter an 
abbreviated day name. The rest of 
the loop contains the exception han- 
dling block, starting with the GET( ) 
procedure. If a correct day name is 
entered, the program responds with 
a brief greeting message and exits 
from the for loop. By contrast, enter- 
ing an incorrect day name causes a 
constraint-type error and triggers the 
exception handling mechanism. The 
user is given a chance to reenter a 
correct day name until the loop times 
out. Notice that one when clause in 
the exception handler deals with 
constraint errors. The user-defined 
Wrong_—Day exception is not used in 
any when clause. Why define it at all? 
The answer is that it is raised to cause 
a fatal error and halt the program. 

The third approach involves using 
an alternate method when the first 
one is plagued by an error. Listing 
Five, page 104, shows a realistic appli- 
cation for finding the root of a non- 
linear function. The main method se- 
lected employs the popular and 
highly efficient Newton’s method. 
This method is vulnerable to func- 
tions that have maxima, minima, and 
saddle points (that is, where the slope 
is zero) near the root, and so I have 
used the bisection method (also 
known as the interval-halving meth- 
od) as an alternate method. The bisec- 
tion method is slower but is guaran- 
teed to get a solution on condition 
that the two supplied guesses form 
an interval containing the root. The 
listing shows the use of two nested 
exception handlers. The first tackles 
any error generated by Newton’s 
method. This can be a numeric error 
or divergence error raised by the test 
for Max_lIter. If an error occurs, the 
program resorts to the bisection 
method. If this technique encounters 
any problem (such as an overflow be- 
cause of a corrupt function), it in- 
vokes its own exception handler and 
triggers the Fatal_Error exception. 
Because there is no handler for the 
latter exception, the program will 
then halt. 

The fourth approach to exception 
handling uses a cleanup to alter the 
error-causing values of one or more 
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variables and then resume program 
execution. I have modified the appli- 
cation in Listing Five to demonstrate 
a cleanup operation; the modified 
code is shown in Listing Six, page 113. 


Modula-2 Exceptions 

Standard Modula-2 does not have 
Ada-like exceptions, and so program- 
mers must set up their own error- 
trapping schemes. Several standard 
Modula-2 libraries defined by Niklaus 
Wirth include error-flagging Boolean 
variables. I will focus on the Math- 
Lib library, which provides mathe- 







Arity/Prolog. 








Do You Ever Get the Feeling 
That No One Speaks Your Language? 


The Language That Spans the Generation Gap. 


Arity listens to what you ask for. You want a serious, versatile 


matical functions with no error trap- 
ping. Listing Seven, page 114, shows 
the definition and implementation 
modules of SafeLib0, a subset library 
of MathLibo. This version offers pro- 
tection against out-of-range argu- 
ments for the square root, exponen- 
tial, and natural logarithm functions. 

The definition module SafeLib0 ex- 
ports the upper limit for the expo- 
nential function. The exported con- 
stant can be increased to reflect 
higher numeric ranges attained by 
using the 8087 chip in an IBM PC- 
based Modula-2 implementation. The 
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fast, compact compiled code, for conventional applications. 
And if you're working in new territories, like expert systems or 
sophisticated database management systems, you'll be speak- 











charge no royalties, so you can use them in as many end-user 
applications as you'd like. Why keep the language of solutions 


Join the thousands of assembly and C programmers who 
already use Arity/Prolog—the language of solutions. 
Call 1-800-PC-ARITY Today. 

Massachusetts residents call 617-371-1243. 





ARITY CORPORATION 
30 Domino Drive, Concord, MA 01742 U.S.A. 
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STRUCTURED PROGRAMMING 
(continued from page 123) 


definition module also declares the 
heading of the exported functions. 
Notice that each mathematical func- 
tion has one additional argument 
compared to functions in the stan- 
dard MathLib0O. This second argu- 
ment is ArgumentERROR, a Boolean 
flag to signal that an out-of-range er- 
ror has occurred. The offending val- 
ue of the argument is made valid, al- 
though the returned function value 
in the case of argument error is 
meaningless. I wrote the SafeLib0 
module to track argument errors in 
an expression containing several 
mathematical functions. I also in- 
cluded function GetNext to return the 
next error systematically by using an 
array of Boolean error flags. 

Suppose I want to execute the as- 
signment statement shown in Table 
1, below. Using GetNext allows my 
application program to pinpoint the 
particular function and the call (for 
multiple function calls in an 
expression). 

An alternative method does away 
with the Boolean out-of-range argu- 


REPEAT  — 
Pressure : = = sanitienp 10 00. Arges) LLN(Volume, 22.4 eo 
- Current := 0; 
Current := eee 2, Found, ArgEn) 


IF Found THEN 


END; 
UNTIL NOT Found; 


ments and instead uses an error 
stack. Listing Eight, page 115, shows 
the definition and implementation 
modules for SafeLib1. This version 
exports a record-typed ErrorStack 
variable. Its structure is composed of 
a stack height counter and an array 
of function names. When a mathe- 
matical function receives an invalid 
argument, it pushes its name into the 
stack and increases the stack height 
counter. 

To use this library, the application 
program must issue a ClearError- 
Stack before every assignment that 
involves the mathematical function 
in question. Following the assign- 
ment statement, the library function 
InError( ) willindicate if the function 
arguments were correct. In case of an 
error, the height counter returns the 
number of functions that were sup- 
plied with invalid arguments. The 
stack contains the names of these 
functions. The only drawback of this 
method over the first one is the case 
of multiple calls for the same func- 
tion in an expression. The problem 
with this method is that the occur- 
rence of the offending function is not 
apparent. 


(* statement to trace errors and either — values, or recalculate sane or Volume") 





Table 1: Using GetNext in an assignment statement 


— 00:00:08.16 


00001730. 
 00:01:19.42 
-00:04:26.61 


Comments _ 


‘Turbo Pascal 


—— 00:07:40.33 


- ~overiow — 
01163847 





01:16:33.75 


Turbo Extender 
_ 20X20-page size, 
_ 7 pages 


28 X 28-page size, 
5 pages 


_ 35X35- page size, 
4 pages 





Table 2: Matrix-inversion benchmark timings using the 8087 chip 
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Large Turbo Pascal Arrays 
Turbo Pascal (Versions 1.0 through 
3.0) imposes a 64K limit on the data 
segment, but I have found a product 
that enables programmers to over- 
come this barrier. Turbo Extender (a 
product of TurboPower Software) 
supplies the user with several inter- 
esting alternatives to support large 
matrices of any type. Each method 
comes with its own include file. Just 
how big can these matrices be? The 
maximum number of columns and 
rows is 32,767, leading to matrices 
containing one billion elements! Tur- 
bo Extender uses a paging technique 
that maintains part of the matrix in 
memory and stores the rest. 

The memory schemes used for 
large matrices are: 


1. RAM-based—This method is able to 
fit matrices in up to 640K of standard 
memory. The application program 
must define the size of the RAM-resi- 
dent portion of the big matrix. The 
large matrix is made up of a matrix of 
pages, and so the number of column 
and row pages must also be defined. 
This type of matrix is defined at com- 
pile time. 

2. Disk-based array—This technique 
stores the matrix in a data file. The 
application program must specify 
the same parameters as in the RAM- 
based version. In addition, the num- 
ber of pages in RAM must also be de- 
fined. Disk-based matrices are 
defined during program compila- 
tion. This alternative applies a virtu- 
al-memory method for swapping 
RAM pages that have been unused for 
the longest time. The RAM-resident 
pages’ sizes and the number of mem- 
ory-resident pages determine the 
speed of accessing the matrix. 

3. Virtual arrays—These are very 
similar to disk-based arrays. The dif- 
ference is that virtual arrays are dy- 
namically allocated at run time. 

4. Expanded-memory arrays—These 
are similar to virtual arrays, except 
they reside in the expanded-memory 
section. The page size is automatical- 
ly assigned by the library. The appli- 
cation program needs only to specify 
the number of rows and columns. 

5. Sparse arrays—These are dynami- 
cally allocated as a linked list. Scan- 
ning for sparse matrix elements is 
done in two phases: the first locates 
the vicinity of the sought element; 
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COMBINE THE 
RAW POWER OF FORTH 
WITH THE CONVENIENCE 
OF CONVENTIONAL LANGUAGES 


FORTH 


Why HS/FORTH? Not for speed 
alone, although it is twice as fast as 
other full memory Forths, with near 
assembly language performance 
when optimized. Not even because 
Circle no. 189 on reader service card. it gives MANY more functions per 


byte than any other Forth. Not be- 
Changing Your Address? 


Cause you can run all DOS com- 
mands plus COM and EXE programs 

To change your address, attach your address label from the cover 
of the magazine to this coupon and indicate your new address below. 


WARP SPEED LIG st Pp EN 


RUN AUTOCAD AS 
FAST AS YOU THINK 


Light Pens, the natural graphic input device, are finally 
available for AUTOCAD. Light Pens, Software and 
single pixel, high resolution convertor cards are ready 


HS 


for immediate delivery. 
For Information Call: In Calif. (800) 826-1563 


(S00) 874-4315 


WARP SPEED a 
COMPUTER PRODUCTS INC. } [| a] ee] Dd - 


5555 S. Inglewood Boulevard wee er ed” md 


Los Angeles, California 90230 Lt Ua am Lot 





from. within HS/FORTH. Not be- 
Cause you Can single step, trace, de- 
compile & dissassemble. Not for the 
complete syntax checking 8086/ 
8087/80186 assembler & optimizer. 
Nor for the fast 9 digit software float- 
ing point or lightning 18 digit 8087 
math pack. Not for the half mega- 
byte LINEAR address space for 
quick access arrays. Not for com- 
plete music, sound effects & graph- 
ics support. Nor the efficient string 
functions. Not for unrivaled disk flex- 
ibility — including traditional Forth 
screens (sectored or in files) or free 
format files, all with full screen edi- 
tors. Not even because I/O is as 
easy, but far more powerful, than 
even Basic. Just redirect the charac- 
ter input and/ or output stream any- 
where — display, keyboard, printer 
or com port, file, or even a memory 
buffer. You could even transfer con- 
trol of your entire computer to a 
terminal thousands of miles away 
with a simple >COM <COM pair. 
Even though a few of these reasons 
might be sufficient, the real reason 
is that we don’t avoid the objections 
to Forth — WE ELIMINATE THEM! 


Public domain products may be 
cheap; but your time isn’t. Don’t 
shortchange yourself. Use the best. 


Name 

Address 

Address Apt. # 
City State 
Zip 


Mail to: Dr. Dobb’s Journal, PO Box 27809,San Diego, CA 92128 





UNIX Tools on DOS 








Over 70 programs that perform tasks on machines like the 
IBM PC, XT, or AT with the ease that one would expect 
while working under UNIX. Designed especially for those geet SS 
developing software in a DOS environment, these utilities ME '; eae 
include: 

awk — data transformation & report generation language 


prof — give a profile of the execution times of a command 





















The Great 


awk is now Use it now! 

egrep — find a string using full regular expression patterns inthe MKS HS/FORTH, complete system: $395 

diff — find the differences between two files Toolkit! with “FORTH: A Text & Reference” 
cat chmod cmp comm cp Cut date dd dev by Kelly and Spies, Prentice-Hall 
df du echo ed file find head help join and “The HS/FORTH Sunnlenisnt’ 
Ic line Is more. mv nm od paste pwd Pp 
rm sed sh size sort split strings _ tail time by Kelly and Callahan 

touch tr unig WC andmore ... 


er Visa Mastercard | 
HARVARD 





The programs come with a shell and complete UNIX-style command-line file name 
expansion on 3 DSDD 5.25" floppies, load and run under DOS, and are not copy- 
protected. Phone support is available during business hours. Full documentation is 


included. 
Price: $139 from: Mortice Kern Systems Inc., 

43 Bridgeport Rd. E., Waterloo, Ontario N2@J 2J4 SO FTWORKS 
For information or ordering call collect: 519-884-2251 PO BOX 69 






MasterCard & VISA orders accepted. OEM & dealer inquiries invited. 
UNIX is a trademark of Bell Labs. MS-DOS is a trademark of Microsoft Corp. 


STREAMLINE YOUR PROGRAMMING 


Circle no. 249 on reader service card. Circle no. 132 on reader service card. 
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ISN’T IT A PITY... 












FILE HANDLER 





Performance and Portability 


For all the time you devote to developing 
your new programs, doesn't it make sense to 
insure they perform like lightning and can be 
ported with ease? 







c-tree: Multi-Key ISAM Functions 
For Single User, Network, & Multi 
Tasking Systems 


Based on the most advanced B+ Tree routines 
available today, c-tree gives you un- 
matched keyed file accessing performance and 
complete C Source Code. Thousands of profes- 
sional C programmers are already enjoying 
- e-tree’s royalty-free benefits, outstanding 
performance, and unparalleled portability. 










Only FairCom provides single and multi-user 
Capabilities in one source code package, 
including locking routines for Unix, Xenix, and 
DOS 3.1., for one low price! In addition, 
c-tree supporis fixed and variable record 
length data files; fixed and variable length key 
values with key compression; multiple indices 
ina single index file; and automatic sharing of 
file descriptors. 










r-tree: Multi-Fle Report Generator 


r-tree builds on the power of c-tree 
to provide sophisticated, multi-line reports. 
Information spanning multiple files may be 
used for display purposes or to direct record 
selection. You can develop new reports or 
change existing reports without programming 
or recompiling and can use any text editor to 


es. 
‘od 
















Everything Isn’t As 


Accommodating As 
c-tree / r-tree 


REPORT GENERATOR 


create or modify r-tree report scripts 
including the complete report layout. At your 
option, end users may even modify the report 
scripts you provide. 


Unlimited Virtual Fields; Automatic File 
Traversal 


r-tree report scripts can define any number 
of virtual fields based on complex computational 
expressions involving application defined data 
objects and other virtual fields. In addition, 
r-tree automatically computes values 
based on the MAX, MIN, SUM, FRQ, or AVG of 
values spread over multiple records. r-tree 
even lets you nest these computational func- 
tions, causing files from different logical levels 
to be automatically traversed. 


Unlike other report generators, r-tree allows 
you to distribute executable code capable of 
producing new reports or changing existing 
reports without royalty payments, provided the 
code is tied fo an application. Your complete 
source code also includes the report script 
interpreter and compiler. 


How To Order 


Put FairCom leadership in programmers utilities 
to work for you. Order c-tree today for 
$395 or r-tree for $295. (When ordered 
together, r-tree is only $255). For VISA, 
MasterCard and C.0.D. orders, call 314/445- 
6833. For e-tree benchmark comparisons, 
write FairCom, 2606 Johnson Drive, Columbia, 
MO 65203. 


5 Complete C Source Code & No Royalties! 


Xenix is a registered trademark of Microsoft Corp. Unix is a registered trademark of AT&T. 
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STRUCTURED PROGRAMMING 
(continued from page 124) 


the second pinpoints it. 

To use a large matrix of any data 
type, the application program must 
first initialize its support. The ex- 
panded-memory array needs a sec- 
ond initializing procedure. The actu- 
al matrices that are accessed by 
pointers are dynamically created 
and optionally initialized by library 
procedures. Other procedures and 
functions are available to store and 
recall matrix elements and clear, de- 
lete, save, load, and flush virtual ar- 
rays. Error handling is supported via 
a number of Boolean flags defined in 
the library. 

Listing Nine, page 116, shows a Tur- 
bo Pascal program that carries out a 
matrix-inversion benchmark on a 
matrix of 140 rows and 140 columns. 
Notice the initialization and matrix- 
creation procedures. In addition, you 
can see the numerous Calls for the li- 
brary routines to store and recall ma- 
trix elements. 

Table 2, page 124, contains the tim- 
ing results. I tried three different 
combinations of page size and num- 
ber of pages and still obtained the 
same timings. The table also shows 
the timings of the 8087-support Tur- 
bo Pascal version for smaller matri- 
ces. The Turbo Extender manual re- 
ports a threefold decrease in speed 
access for REALs. The fact that big ma- 
trices can be employed is a welcome 
feature. 
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C Programmers: 


We support every product in this ad & 700 others. 
Try any product here with a full 31-day money-back guarantee. 











__ A NEWC STANDARD FOR SCREENS AND WINDOWS: 
Setting a new standard for screen generation, C-scape turns yourDan 
Bricklin Demo Program screens into C code instantly. You can capture 
wiles C a 24) ____ existing screens from 1-2-3, Turbo, or that old BASIC diehard andconvert  —s_— 
Instant C’s NEW version 2.0 gives — __ them to C in seconds. C-scape can save you immense effort and reduce 


processor overhead. Handle multiple © -—-«- You immediate (2 secs.) compilation errors for both new program development and language conversion pro- 
and execution of large (15,000-line) —_ jects. 


users, printers, communications, or FA foun 
programs, and the ability to link in C-scape is a combination screen generator and library of input/output 


Fastest C 
Development on Earth: 





Add Efficient MultiTasking to 
Your C Program with Multi-C 


Create, manage, and communicate 
among tasks with littke RAM and 





plex polling schemes or lockups in 
your programs. 


in production programming, and 
cooperates with your operating sys- — 
tem, so functions are reliable. 40 + 
functions use 32,000 priority levels, 
handle interrupts, control flags, and 
messages and control queues. 


ten in C; use it for stand-alone sys- 
tems, or make Multi-C the kernel 
of your own operating system. 


in data acquisition, device control, 
communications and MS C, Lattice, 
C86. Partial source. No royalties. 
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just about anything else without com- _ 


___ libraries in an interactive. Lattice 
Multi-C is designed for ease of use —-3-0 or Microsoft 3.0 compatible, 
integrated full screen editor and 
source level debugger. 

You'll get full K&R standard C 
fast (33 second sieve) execution 
speed, and debugging with source 
code animation, single-stepping, 
backtracing, and unlimited condi- 
tional breakpoints. 

Instant C now supports multiple 


Multi-C is portable because it’s writ- 


: d fe lication 
Particularly good for applications checking of pointer and arrary ref- 


tion, and complete library source. 


617-653-6194 


Rational 


Systems, Inc. 


MSDOS $149 


Cytek 


INCORPORATED 


(—_ 


“cBRIEF” 


10,000 senior programmers already use BRIEF. Even if you are a be- 
ginning programmer, user surveys indicate that you can become productive 
with BRIEF in less than 30 minutes. 

BRIEF comes tailored for C programming and you can fit BRIEF to 
your style. With every feature needed for your programming plus tailoring, 
you get the productivity improvement of a “syntax-directed” editor without 
the constraints. 

¢ AutoCompile - While in BRIEF you can compile with MS C, Lattice, 
or several other compilers (we’ll even help you support any compiler 
through our 800-line tech support). You save 20+ seconds each compile, 
and you can automate as with a CC.EXE or MAKE. 

¢ AutoIndent - Save keystrokes and increase style consistency. Use the 
editor’s default indentations or modify to suit. 

¢ Template editing - Controversial editing approach gives you the full 
structure of a programming construct on-screen and moves cursor from 
one “fill-in-the-blanks” location to the next. 

¢ Error to Error Tracking - Use “next error” to move to next appropriate 
line. Display error messages in separate window - even when you add 
or delete code BRIEF knows where to go. : 

¢ Multi-Window Editing - Keep different parts of the same file in hori- 
zontal or vertical windows. Put header file in one, main function in another, 
current function in a third. Any size, any number. 

¢ Macro Language - Completely readable, programmable, will be second 
nature for an experienced C programmer. Or modify the macro source 
code we include. Up to 10 different macros can each react in turn to every 
character you type. 

¢ Want more? Call The Programmer’s Shop and ask about “the incredible 
UNDO” or for a detailed product description. 

PCDOS $195 


2 800-821-2492 
oo Circle no. 305 on reader service card. 


HOURS 


8:30 AM - 8:00 PM EST. 


_ external (commercial or your own) 


interpreter-like environment with an 


screens and graphic devices, run-time 


erences, and includes a new manual, 
_ expanded tutorial and reference sec- 


MSDOS $399 
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- functions that provides an advanced and powerful ability to create different 


types of menus, input fields, help screens, and text with unprecedented —_| 
speed and flexibility. Tiled, pull-down, and pop-up windows of virtually __ 


any depth (limited by RAM) are a key feature, along with scrolling, full 


color and type support, and individual key or field validation. 

Because C-scape is based on C’s printf statement, you can embed the 
commands for screen positioning and field definition right inside your 
format string. This helps you produce clear, readable code, which is easier 
to maintain and change. 

Since full source code is provided, the standard library routines can be 
tailored to meet your exact screen layout and keystroke handling 
requirements. 

All C programmers will benefit from C-scape’s readable, intuitive syntax, 
based on an extension of C’s printf function. Beginners will learn by study- 


___ ing code generated from captured screens. Advanced programmers will 
enjoy C-scape’s ease of maintenance. Power programmers will appreciate — 


the free source code provided at no additional cost upon registration. 
Oakland Group, Inc. features free updates, an on-line bulletin board 


for users, and toll-free technical support at 800-233-3733 (800-BEE-FREE) | 


or 617-491-7311. 
Escape the pitfalls of coding from scratch, and free up your time for 
creativity and productivity. Buy C-scape now and take advantage of the 


_ 31-day review period: satisfaction guaranteed or your money back. No 








royalties. No license fee. Lattice 3.0, Microsoft 3.0 & 4.0. 
Oakland Group, Inc./QO) PCDOS $149 
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FAST, Easy-to-Use Graphics, Royalty-Free: 
Essential Graphics 
Draw fast dots, lines, circles, arcs, rectangles, and box fills. Draw a 
bar or exploded pie chart or a shaded line graph with one function call. 
Use the font and clip-art manipulation routines with the 10 fonts included 


____ (up to 8 simultaneously, or choose from over 500 other fonts and clip-art 
___sets available. 
____ Essential Graphics provides fast animation and graphic windowing using 
___ GET and PUT, and generates compact code. Demonstration programs 
___ and comprehensive manual included. 
_____ Supports IBM Color, EGA, and Hercules cards, Epson and Oki printers. 
___ Lattice, Aztec, C86, Desmet, MS C, others. No royalties. 

Saas 201-762-6965 


Se  SCCircle no. 304 on reader service card. 
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C DYNAMO! 
WINDOWING: Full C Source, No Royalties 
Power Windows and C Function Library 


_____ Power Windows covers all the bases: overlays, borders, 1-2-3 style or 
__ pop-up menus/help windows, zap instantly on/off screen, status lines, 
___ horizontal/vertical scrolling, color control or highlighting, word-wrap, 
_ files to windows, keyboard to windows. Powerful, easy to use, integrated 
___ error messages, thorough documentation. Supports IBM monochrome or _ 
_ color. 


MSDOS Only $119 


sc Function Library - includes 325 fundamental functions with readable source and 
___ thorough documentation. 


713-468-4412 









“T would like to mention that I appreciate 
the way that the Programmer’s Shop does 
business. It is indeed refreshing to be able 
to call and get answers that you can trust 






MSDOS Only $119 


: - No matter what you have, you need these. Best value available. Highly 
oo. - recommended! 


_ Entelekon 


Call for Your FREE C Programmer’s Directory 


800-421-8006 
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128-D Rockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 8/86 





in, to questions on various products.” 
Donald E. Winters 
MIS Software Development Inc. 








PROGRAMMER’S SERVICES 


OF INTEREST 





Graphics 


Z3D from Computer 
Graphics Center is a new 
3-D graphics program for 
the Macintosh computer. 
The program displays shad- 
ows cast from 3-D objects 
created by the user and 
shades these objects. The 
program has 12 fonts avail- 
able, which can also be dis- 
played in 3-D. Entire scenes 
can be viewed from any an- 
gle. Z3D is priced at $99. 
Reader Service No. 16. 
Computer Graphics Center 
Inc. 
444 High St. 
Palo Alto, CA 94301 
(415) 325-3111 


The IB-3D1 3D Graphics 
Package from SubLOGIC 
Corp. contains a set of pro- 
grams for the creation and 
real-time animation of 3-D 
objects. The package in- 
cludes a custom high-speed 
assembler/linker, a VIEW 
program to view and ani- 
mate 3-D databases, and the 
Real-Time Animation Lan- 
guage (RTAL) graphic driv- 
ers that are also used in sev- 
eral flight-simulator 
programs. The IB-3D1 3D 
Graphics Package is avail- 
able for the IBM PC and 
compatibles and costs $995. 
Reader Service No. 17. 
SubLOGIC Corp. 

713 Edgebrook Dr. 
Champaign, IL 61820 

(217) 359-8482 


NSI Logic has begun ship- 
ping the EVC (Enhanced 
Video Controller)-315, an 
advanced graphics chip. 
The EVC-315 integrates five 
graphics standards, is user 


128 


programmable, and can 
operate at a high frequen- 
cy to achieve high resolu- 
tions. The chips are avail- 
able to OEMs, and the prices 
begin at $65 per chip for a 
minimum order of 10,000. 
Reader Service No. 18. 

NSI Logic Inc. 

Cedar Hill Business Park 
247-B Cedar Hill Rd. 
Marlboro, MA 01752 

(617) 460-0717 


The Inport device inter- 
face from Microsoft Corp. 
is for hardware manufac- 
turers who want to inte- 
grate graphics input de- 
vices into their products. 
The interface scheme in- 
cludes a new, 40-pin, cus- 
tom integrated circuit and 
a small, compact 9-pin con- 
nector. Together the chip 
and connector reduce the 
amount of circuit-board 
and end-bracket space re- 
quired to provide a graph- 
ics input device for person- 
al computers. Reader 
Service No. 19. 

Microsoft Corp. 

16011 N.E. 36th Wy. 

P.O. Box 97017 

Redmond, WA 98073-9717 
(206) 882-8080 


Definicon Systems has 
announced MMM, a 32-bit 
graphics board line for IBM 
PC-compatible personal 
computers. MMM combines 
a million bytes of on-line 
memory, a million pixels 
on the screen, and a mil- 
lion instructions per sec- 
ond. The three-board prod- 
uct line comprises two 
computing engines, DSI-020 
and DSI-780, which are 
based on Motorola’s 68020 
CPU and 68881 FPU, as well 
as a graphics processor 
based on Hitachi's 63484 
chip. DSI-020 (16 MHz) costs 
$1,994, DSI-780 (16 MHz) 
costs $3,295, the graphics 
expander board _ costs 


$1,495, and the 256-color 
option for the graphics 
board costs $400. Reader 
Service No. 20. 

Definicon Systems 

31324 Via Colinas, Ste. 108 
Westlake Village, CA 91362 
(818) 889-1646 


A new line of single-slot, 
IBM PC-compatible, add-in 
graphics boards are avail- 
able from Pronto Com- 
puters. The HR-1200 Series 
of color graphics boards 
provide flicker-free graph- 
ics on 60-Hz noninterlaced 
monitors at 1,280 X 1,024 
pixels with either 8-bit, 256- 
color display or 4-bit, 16-col- 
or display from a palette of 
4,096 colors. The boards 
also include a 256 X 12 col- 
or lookup table, three high- 
speed digital/analog con- 
verters, and 1.5-megabyte 
memory per screen image. 
The 1,280 X 1,024-pixel ver- 
sion with 256 simultaneous 
color display capability is 
priced at $3,495; the 
1,280 X 1,024-pixel board 
with 16-color capability is 
$2,795; the 1,024 X 768-pix- 
el board with 256-color ca- 
pability is $2,895; and the 
1,024 X 768-pixel board 
with 16-color capability is 
$2,195. Reader Service No. 
21. 

Pronto Computers Inc. 
3730 Skypark Dr. 
Torrance, CA 90505 

(213) 539-6400 


Languages 

QuickBASIC 2.0 from Mi- 
crosoft Corp. is a high- 
performance BASIC compil- 
er that offers high-speed, 
in-memory compilation 
and allows users to create 
structured and modular 
programs. In addition, its 
built-in editor and debug- 
ger shorten development 
time, letting programmers 
write, compile, and debug 
their programs without 


having to leave the pro- 
gramming environment. 
QuickBASIC 2.0 runs on the 
IBM PC and compatibles 
and costs $99. Reader Ser- 
vice No. 22. 

Microsoft Corp. 

16011 N.E. 36th Wy. 

P.O. Box 97017 

Redmond, WA 98073-9717 
(206) 882-8080 


UniPress Software has 
announced UniShell, a 
Bourne shell script compil- 
er. UniShell analyzes a 
shell script, translates it 
into the C language, com- 
piles it using the system C 
compiler, and then pro- 
duces an executable pro- 
gram. UniShell programs 
run faster than _ shell 
scripts, can take advantage 
of the sticky bit and setuid 
for increased efficiency 
and security, are portable, 
and have well-structured 
and readable C code. Prices 
vary according to comput- 
er system. Source code is 
available for $4,995. Reader 
Service No. 23. 

UniPress Software 

2025 Lincoln Hwy. 

Edison, NJ 08817 

(201) 985-8000 


A Modula-2 language sys- 
tem is now available from 
Djavaheri Bros. This Mo- 
dula-2 runs’ on _ the 
MC68020 processor-based 
Unix system Altos 3068 
Computer System. The 
price for the product is 
$495. Reader Service No. 24. 
Djavaheri Bros. 

697 Saturn Ct. 

Foster City, CA 94404 

(415) 341-1768 


Allen Systems’ CP-97 Pas- 
cal Cross Compiler for the 
8097 16-bit microcontroller 
on a chip is a complete pro- 
gramming environment 
oriented around a subset of 
the Pascal programming 
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Breaking the 640K DOS Barrier: 


New version of Alsys 
PC AT Ada* compiler 
improves speed, adds 
application developer's 
guide, brings seven 
80286 machines to latest 
validation status, 





Alsys’ landmark Ada compiler for the 
PC AT, the first to bring Ada to popu- 
lar-priced microcomputers, has been 
upgraded to Version 1.2 with significant 
improvements. 

The new version compiles faster than 
its predecessor, is validated for a full 
range of popular compatibles using the 
latest AJPO test suite 1.7, and includes 
a Developer's Guide in the documenta- 
tion set. The price remains at $2,995 
for single units, including a 4 megabyte 
RAM board. 

Both the original and the newly 
upgraded versions utilize the inherent 
capabilities of the 80286 chip and 
‘virtual mode’’ to eliminate the 640K 
limitations of DOS. These techniques 
permit addressing up to 16 MB of mem- 
ory, under the control of DOS, without 
changes to DOS in any way! 

80286 machines validated in the new 
release include HP’s Vectra, Compaq’s 
Deskpro 286, Sperry’s PC/IT, Zenith’s 
200 series (including the Z-248), Tan- 
dy’s 3000 HD, the Goupil/40, and the 
IBM PC AT. The compiler supports 
DOS 3.0 or higher. Ada programs com- 
piled on the AT will also run on PCs 
and XTs supporting DOS 2.1 or higher. 


UISYS 





ALSYS, INC., 

1432 Main Street, Waltham, MA 02154 
DDJ 1186 

ADA NOW. Tell me more about the 
PC AT Ada compiler. 

Name 

Title 

Company 

Address 

City 

State/Zip 

Phone/Ext 


In the US: Alsys Inc., 1432 Main St., Waltham, MA 
02154 Tel: (617) 890-0030 

In the UK: Alsys Ltd., Partridge House, Newtown 
Rd., Henley-on-Thames, Oxon RG9 1EN 

Tel: 44 (491) 579090 

In the rest of the world: Alsys SA, 29, Avenue de 
Versailles, 78170 La Celle St. Cloud, France 

Tel: 33 (1) 3918.12.44 

"Ada is a registered trademark of the U.S. 
Government (AJPO). Alsys is the trademark of 
Alsys, Inc. References to other computer systems use 
trademarks owned by the respective manufacturers. 
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language. The CP (Control 
Pascal) system is designed 
to run on IBM PCs and com- 
patibles and includes a 
screen editor, cross compil- 
er, interpreter, translator, 
terminal driver, and run- 
time support software. CP- 
97 costs $200. Reader Ser- 
vice No. 25. 

Allen Systems 

2151 Fairfax Rd. 
Columbus, OH 43221 

(614) 488-7122 


The cEnglish Data Base In- 
terface Library from cLine 
has more than 200 func- 
tions that provide easy ac- 
cess to the capabilities of 
the industry-standard file 
management system C- 
ISAM. This library allows C 
applications to be moved 
easily between MS-DOS, 
Xenix, and Unix with 100 
percent portability across a 
wide range of systems. The 
function library includes a 
broad inventory of tools 
for screen and memory 
management, database in- 
terfacing, formatting, and 
utilities. The C functions 
are accessed by using an 
English-like preprocessor 
that creates Lattice C-com- 
patible source code. Read- 
er Service No. 26. 

cLine 

3550 Camino del Rio North 
Ste. 208 

San Diego, CA 92108 

(619) 281-5593 


Cobalt Blue has _ an- 
nounced the release of RTC, 
a Ratfor-to-C translator, in 
both PC-DOS and VAX-VMS 
formats. RTC is priced at 
$450 for PC-DOS and $1,950 
for VAX-VMS. Reader Ser- 
vice No. 27. 

Cobalt Blue 

1683 Milroy, Ste. 101 

San Jose, CA 95124 

(408) 723-0474 


IntelligenceWare's Intelli- 
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gence/Compiler is an ex- 
pert-system development 
environment and knowl- 
edge compiler that pro- 
vides advanced symbolic 
computing technology on 
business and industrial 
computer systems. The In- 
telligence/Compiler pro- 
duces code that allows ex- 
pert systems to_ be 
interfaced to conventional 
languages, applications, 
and external databases or 
used on portable comput- 
ers. Reader Service No. 28. 
IntelligenceWare Inc. 

9800 S. Sepulveda Blvd. 

Ste. 730 

Los Angeles, CA 90045 

(213) 417-8896 


For the IBM PC 
International Battery 
Corp. (IBC) is now market- 
ing lithium replacement 
batteries for the IBM PC/AT. 
The AT’s internal real-time 
clock is maintained by an 
independent battery locat- 
ed on the motherboard 
when the _ power is 
switched off. When this 
battery fails, the format- 
ting memory of the com- 
puter shuts down, requir- 
ing total reconfiguration of 
the hardware. The re- 
placement batteries cost 
$27.50 each. Reader Service 
No. 31. 

International Battery Corp. 
6860 Canby Ave., Ste. 113 
Reseda, CA 91335 

(818) 609-0516 


The Bubbl-Tec division 
of PC/M has announced the 
PC-1 Bubbl-Board, a mag- 
netic-bubble, mass-storage 
system for the IBM PC, PC/ 
XT, and PC/AT. The PC-1 
provides 4% megabyte of 
magnetic-bubble memory 
on a single PC adapter card. 
The system also provides 
512K of nonvolatile mass 
storage and incorporates 
intelligent control firm- 
ware and circuitry that 
handles bubble-device for- 
matting and control, inter- 


faces the bubble-memory 
system to the PC’s bus 
structure, and provides for 
both soft- and hard-error 
detection and correction. 
The 512K version of the PC- 
1 system is priced at $1,111. 
Reader Service No. 32. 
Bubbl-Tec 

6805 Sierra Ct. 

Dublin, CA 94568 

(415) 829-8700 


Sysgen has introduced an 
internal Winchester sub- 
system featuring remov- 
able hard-disk cartridges 
for the IBM PC, PC/XT, PC/ 
AT, and compatibles. Dura- 
Pak provides PC users with 
the transportability, securi- 
ty, and unlimited capacity 
characteristic of removable 
media. The system is inter- 
nal, leaving no footprint. 
The single-drive, 15-mega- 
byte DuraPak system is 
priced at $1,295, and the 30- 
megabyte, dual-drive Dura- 
Pak is priced at $2,095. 
Reader Service No. 33. 
Sysgen Inc. 

47853 Warm Springs Blvd. 
Fremont, CA 94539 

(415) 490-6770 


A new plug-in board for the 
IBM PC and compatibles, Mi- 
crosoft Corp.'s MACH 10 is 
designed to improve the 
PC’s ability to run the 
graphical user interface 
and multitasking features 
of Microsoft Windows. The 
board replaces the 8088 
processor chip with a 16-bit 
8086 that runs at nearly 10 
MHz and uses high-speed 
cache memory to act as a 
buffer between the proces- 
sor and the computer's 
main memory. MACH 10, in- 
cluding the InPort Mouse 
and Windows, has a sug- 
gested retail price of $549. 
Reader Service No. 34. 
Microsoft Corp. 

16011 N.E. 36th Wy. 

P.O. Box 97017 

Redmond, WA 98073-9717 
(206) 882-8080 


For the Atari ST 
Abacus Software has an- 
nounced Introduction to 
MIDI Programming for the 
Atari ST by Len Dorfman 
and Dennis Young. The 
book includes the source 
listings for a comprehen- 
sive MIDI editor, driver, 
and animated player for 
any of the Casio CZ series 
synthesizers. The source 
can be modified for other 
makes and models. The 
price of the book is $19.95. 
Reader Service No. 29. 
Abacus Software 

2201 Kalamazoo SE 

P.O. Box 7211 

Grand Rapids, MI 49510 
(616) 241-5510 


Mark Williams Co. has be- 
gun shipping Mark Wil- 
liams C for the Atari ST. It 
features a complete imple- 
mentation of K & R C plus 
the recent extensions to C 
implemented under Unix. 
It includes a shell, utilities, 
and a full-screen editor and 
costs $179.95. Reader Ser- 
vice No. 30. 

Mark Williams Co. 

1430 W. Wrightwood Ave. 
Chicago, IL 60614 

(312) 472-6659 


Networking 

A Hayes-compatible 2,400- 

baud modem, one of the L 

series, is available from 

Leading Edge Hardware 

Products. The modem is 

priced at $289. Reader Ser- 

vice No. 35. 

Leading Edge Hardware 
Products Inc. 

225 Turnpike St. 

Canton, MA 02021 

(617) 828-8150 


A linking program from 
EKD Computer Sales and 


Supplies Corp, pcAny- 


where can support up to 
19,200 baud, offers conver- 
sational and copilot mode, 
can transfer files bidirec- 
tionally, and can be used 
with 28 popular terminals 
with customization for 


Dr. Dobb’s Journal, November 1986 





s Separate Spilaton 
_™ Native Code Generation 
-™ Large Memory Model Support 
® Multitasking 
® Powerful Debugging Tools 
_ = Comprehensive Module Library 

® Available for the PC and the VAX 

Use LOGITECH MODULA-2/86 to 
decrease your overall development cycle 
and produce more reliable, more 
maintainable code. 





@= LOGITECH 
“” MODULA-2/86 $89 
Includes Editor, Run Time System, Linker, 
8087 Software Emulation, Binary Coded 

Decimal (BCD) Module, Logitech’s com- 


prehensive library, Utility to generate 
standard .EXE files. AND more! 





my LOGITECH MODULA-2/86 
© with 8087 Support. $129 





é@~ LOGITECH MODULA-2/86 
? PLUS $189 

For machines with 512K of RAM. 

Increases compilation speed by 50%. 





@= RUN TIME DEBUGGER 
“= (Source level!) $69 


The ultimate professional’s tool! Display 

source, data, call chain and raw memory. 

Set break points, variables, pinpoint bugs 
in your source! 










UTILITIES PACKAGE $49 


_. Beguaes a Post-Mortem Debugger (PMD). 
If your program crashes at run-time the 
MD allows you to analyze the status of 
1c program and locate the error. Also — 
acludes a Disassembler, Cross Reference 















bility. and Version oe allows conditional 








> WINDOW PACKAGE _ $49 


Build windows into your programs. Features 
virtual screens, color support, overlapping 
windows and a variety of borders. 


oe 


> MAKE UTILITY $29 


Figures out dependencies and automatically 
selects modules affected by code changes 
to minimize recompilation and relinking. 





@ CROSS RUN TIME $199 
7 Debugger and ROM Package 


Still available at an introductory price! 





TURBO PASCAL to $49 
MODULA-2 TRANSLATOR 


“Turbo Pascal...is avery good system. 
But dont make the mistake of trying 
to use it for large programs.’ 

Niklaus Wirth* 


Our Translator makes it even easier for 
Turbo users to step up to Modula-2/86. 
It changes your Turbo source code 

into Modula-2/86 source, solves all the 
incompatibilities, and translates the 
function calls of Turbo into Modula-2/86 
procedures. ae the complete 
‘Turbo libraries! 


Call for information about our VAX/VMS 
version, Site License, University Discounts, Dealer 
& Distributor pricing. 

30 Day Money Back Guarantee! 

‘To place an order call our special toll free 


>, S003 777 


in California _ 


~ 800-552-8885 . 





= power of LOGITECI a 
/86 at a saving of nearly © 
our usual low prices! We’re 






offering a complete tool set including : 


our compiler with 8087 support (for use 
with or without an 8087), our Turbo 

to Modula-2/86 Translator, Run Time 
Debugger, and Utilities in one holiday 
package at a special price! 


YES I want to step up to 
LOGITECH MODULA-2/86! 


Here’s the configuration I'd like: 


LJ] Special Holiday Package $199 
LJ Logitech Modula-2/86 $89 

LJ with 8087 support $129 

L] Plus Package $189 
LJ Turbo to Modula Translator $49 
LJ Run Time Debugger $69 
L} Utilities Package $49 
L] Library Sources $99 
L) Window Package $49 
L} Make Utility $29 
L] ROM Package $199 


Add $6.50 for shipping and handling. Calif. 
residents add applicable sales tax. Prices valid 
in U.S. only. 


Total Enclosed ed ee 
L] Visa LJ MasterCard 0) Check Enclosed 


Card Number Expiration Date 





Signature 





Name 





Address 


City State Zip 





Phone 


LOGITECH 


Logitech, Inc. 
805 Veterans Blvd. 
Redwood City, CA 94063 
Tel: 415-365-9852 


In Europe: 
Logitech SA, Switzerland 
Tel: 41-21-879656 


In Italy: Tel: 39-2-215-5622 
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other terminal types avail- 

able. It is priced at $95 for 

each host machine. The re- 

mote computer program 

ATERM can be copied as 

many times as required. 

Reader Service No. 36. 

EKD Computer Sales and 
Supplies Corp. 

764 Middle Country Rd. 

Selden, NY 11784 

(516) 736-0500 


PCC/Systems has intro- 
duced cc:Mail, a high-end 
electronic-mail product. 
Cc:Mail has a file-server-to- 
file-server message ex- 
change that can be used on 
individual networks and 
between networks that are 
bridged together. All users 
of local-area networks can 
exchange text, graphics, 
and files with any other PC 
user who is either within 


On-Line HELP! Function Library 
HELP! is an on-line utility library 


or outside the network. 
Cc:Mail for LANs sells for 
$995 for a ten-user starter 
package and is available 
for a variety of networks. 
Reader Service No. 37. 
PCC/Systems 

480 California Ave., Ste. 201 
Palo Alto, CA 94306 

(415) 321-0430 


Miscellaneous 
Motorola's Microprocessor 
Products Group has an- 
nounced the 25-MHz (40- 
nanosecond) version of the 
MC68020 32-bit micropro- 
cessor and the 20-MHz (50- 
nanosecond) version of the 
MC68881 Floating Point Co- 
processor. Prices vary ac- 
cording to quantity and 
speed. Reader Service No. 
38. 
Motorola Inc. 
Microprocessor Products 
Group 
P.O. Box 3600 
Austin, TX 78764 


PROGRAMMERS 


that gives. your software instant, 


context—sensitive, pop—up HELP! windows at the touch of a key. Link your 
C code with the HELP! library, tell HELP! which window is current, and HELP! 
does the rest — fast. HELP! writes directly to video memory with no flicker 


or snow. 


HELP! Runs on PCs and compatibles, B+W or CGA. Source code is 


available. 


HELP! Composer 


(512) 928-6000 


The Disk Defender from 
Director Technologies is 
a hardware write-protect 
device for fixed Winches- 
ter disks. The product con- 
sists of a circuit board, a 
control box, and a ribbon 
cable. The circuit board 
can be installed in either 
the short or long slot of the 
IBM PC, PC/XT, and compati- 
ble computers. Using full 
protection, the entire hard 
disk is readable but not 
writable. The suggested re- 
tail price is $185. Reader 
Service No. 39. 

Director Technologies Inc. 

P.O. Box 7067 

Evanston, IL 60204 

(312) 475-3070 


Burton Systems Soit- 
ware is now shipping TLIB, 
a source-code-revision con- 
trol system and librarian 
for PC-DOS and MS-DOS com- 


































Interwork is a “C” program library which allows you to write 
your programs as a set of cooperating concurrent tasks. 
Very useful for simulation, real-time applications, and ex- 
perimentation with parallel programming. 


FEATURES 

Supports a very large number of tasks (typically more 
than 100) limited only by available memory. Low over- 
head per task results in very fast context switching. 
Provides a full set of inter-task communication (ITC) 
facilities, including shared memory, locks, semaphores, 
blocking queues, and UNIX*-style signals. Also has 
building blocks for constructing your own ITC facilities. 


puters. TLIB works with 
LANs and handles synchro- 
nized control of multiple, 
related source files. A copy 
of Landon Dyer’s MAKE util- 
ity is also included. TLIB is 
not copy-protected and is 
available for $99.95. Reader 
Service No. 40. 

Burton Systems Software 
P.O. Box 4156 

Cary, NC 27511-4156 

(919) 469-3068 


Phoenix Technologies’ 
PC/AT-com patible 

ROM BIOS for Intel’s 80386 is 
now available. The Phoe- 
nix BIOS includes such fea- 
tures as extended central 


- processor diagnostics, full 


32-bit memory testing, sup- 
port for the 80387 numeric 
coprocessor, and support 
for processing speeds up to 
20 MHz. Reader Service No. 
41. 

Phoenix Technologies Ltd. 
320 Norwood Park S 





Parallel Programming for “C” 


INTERWORK 


A Concurrent Programming Toolkit 





Compose your HELP! windows interactively. Control HELP! window text, size. 
colors, position, borders, titles. The HELP! Composer runs as a standalone 
utility or link it along with your programs to watch each HELP! window 
take form against the backdrop of your own screen designs. The HELP! 
Composer builds an ASCII text file to describe all the HELP! windows for 
each application. 


Complete Windows and Pop-Down Menu Library 

A bonus: Use the window and pop—down menu functions from the HELP! 
library in your own programs. This is a complete C window package. 
Open and close windows, fill windows with text, scroll, select with a cursor 
bar, promote a window from the background, move a window. 


Window Text Editor 
Use the full—featured, window—oriented HELP! Text Editor to collect text 
data into your application. Open a window and call the edifor. 


HELP! links with programs compiled by most MS—DOS C compilers: Aztec, 
CI—C86, Datalight, DeSmet, Eco—C88, High C, Lattice, Lets C, Microsoft, 
Whitesmiths, Wizard. Most memory models are supported. The HELP! 
distribution package includes libraries, a C demo program, and a 
complete Programmer's Manual. 


HELP!: $49. HELP! with Source Code: $149. Demo diskette: $10, deducted 
from your order. Specify compiler. MasterCard and VISA are accepted. (FL 
residents add 5% sales tax.) 


C SOFTWARE TOOLSET 
2983 Newfound Harbor Drive — Merritt Island, FL 32952 — (305) 453—0257 
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Handles interrupts (DOS version) and integrates them 
into task scheduling. Supply your own interrupt handlers 
or block tasks on interrupts. 

Lets you trace task switches and inter-task 
communication. 

Comes with complete documentation including a user’s 
manual and reference manual of commands. 


Interwork is available for the following systems: 














































Hardware Operating System Price 
IBM PC, XT, AT PC-DOS 2.0 or later $129 
IBM PC AT XENIX* $159 
DEC VAX; SUNIII UNIX 4.2BSD $249 





PC-DOS version is compatible with DeSmet, Lattice, and 
Microsoft C compilers. 

Please specify hardware and operating system when 
ordering. Shipping and handling included; COD orders 
add $2.50. Send check or money order to: 


Ax Biock Island Technologies 
Innovative Computer Software 
13563 NW Cornell Road, Suite 230, Portland, Oregon 97229-5892 


(503) 241-8971 


*Trademarks: UNIX, AT&T Bell Laboratories, Inc.; XENIX, 
Microsoft, Inc.; VAX, Digital Equipment Corporation 
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HAUPPAUGE 





TS seer 
ing a fast reputation with 
oe 87 Math Pak, the 


combination of an 87 chip and 87 
Software Pak that’s been accelerat- 
ing PC math since 1982. 

Next came their Cy es 
Ato DOME Mets Mee ncercccrean fete 
SUC Teele Keele) 115 bau (ele es aie up PC/AT math 

by 25%. (Pictured above.) 


ona Hauppauge Unveils the YA CTT a Fes 
Our newest math coprocessor for the PC/AT, ets er see 
FAST/10 moves out at 1OMHz—more than ¢ eel trea 
the speed of each itertatated point math operation. The 
FAST/10 accelerates AutoCad, 1-2-3, Symphony, Stns 

Pascal, Framework and more. The FAST/10 also runs oe a 
PC/AT compatibles including the Compaq Deskpro. 286, 
Sperry PC/IT and most 286 accelerator boards. ae 


...And the 87 Software Pak AY/Ses leon Om a 
ee to steal the heart of programmers, the 87 Soft- = 
ware Pak supports IBM’s BASIC Compiler 1.0 and 2.0, 
and Microsoft’s QuickBASIC, executing math-intensive hae 
programs up to 20 times faster! The 87 Software Pak ae - 
performs FFT’s and Matrix operations. For example, a 
PC (or PC/XT) with an 87 Chip and 87 Software Pak 
can perform a 512-point complex FFT in just 1.1 seconds. 
What’s more, a PC/AT with a FAST/10 TS tap, by 


25 element matrix in woes 1 second. 








OG iatetewaO a-a coltlrlneer 







HAUPPAUGE Math Coprocessors 
287 FAST/10 1OMHz math coproces- 
sor for PC/AT and compatibles ...$469 
287 FAST/8_8MHz math coproces- 
sor for PC/AT and compatibles ..$379 
PA.¥ Ot KOraee > coprocessor 
—runs at 4MHz in the old model 
IBM PC/AT and 5.33 MHz in ale en 
Woe @ OA. $219 
87 Chip Math a for IBM PC, ser and 
eye 2 a ee en Sree eee Se 


oe a sy 87 ny IV fetta) Saal it a i 





yatibles ... Be Oa St ee or ee ee . $195 


j ee ee Gee ener Paks ee 
Math Pak V.6.0 87 chip and math eet ee ; 
are support for IBM. EN IC Compiler 1.0, 2.0 and Micro- _ 


Seo exe tie eC em tenet haa support, one year. 
a free updates, Cee oll carc sand ani 
tions and Programming” . 


asltcr4 ee 
EEE AE OE ae Zi? 





- > S 87 Software Pak V.6.0 ene Renee ee as ort 
o a * be ya Math Pak, but without 87 chip... 1 








Math coprocessor oa ae Cols eee 


a GuickBASIC pee [Gel os Gi el, care eee - oe) 
| rept Math coprocessor Stl ole 1. ye 3 Veta 


ithe ee ee ee eee eee ee ee ee ee ee ee oe 





: Bie as ‘Complete Hayes React coe ee reer 


. The 287 FAST/10 Doubles Your PC/AT’s Math Speed! 
Help your PC/AT get a fast reputation with Hauppauge’s 


new 287 FAST/10. Call today, or contact your local com- 
puter dealer to learn more about Hauppauge’s racy prod- 
uct line. And ask for “87 Q & A?” our free booklet on 
math coprocessors. | 

Hauppauge Computer Works, Inc. 

358 Veterans Memorial Highway, Suite MSI, 
Commack, New York, USA 11725 

516-360-3827 * TELEX: (262939- HCW 
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Norwood, MA 02062 
(617) 769-7020 


Software Composers has 
announced Delta Board, a 
4% X 6'2-inch circuit 
board built around the No- 
vix NC4000 single-chip 
Forth engine. The board 
provides essentials for im- 
mediate application use: 
stack memory, program 
RAM, and EPROM with a 
public-domain Forth inter- 
preter. Delta Board costs 
$795. Reader Service No. 42. 
Software Composers 

210 California Ave., Ste. F 
Palo Alto, CA 94306 

(415) 322-8763 


The STD bus-based system 
from Devtek Systems sup- 
ports program develop- 
ment for 8085, Z80, 8086, 
and 8088 CPUs. An IBM PC or 





compatible is used as the 
system console and for 
program storage. Pro- 
grams are downloaded to 
the STD system where a full 
complement of debugging 
utilities can be operated 
from the PC. The price is 
$695. Reader Service No. 43. 
Devtek Systems 

P.O. Box 5224 

Lancaster, PA 17601 

(717) 560-0652 


Viasyn Corp. is now ship- 
ping the CompuPro 286/80, 
a multiuser computer. The 
CompuPro 286/80 includes 
an 80-megabyte hard disk 
with a dedicated 512K 
cache buffer, a 16-slot S- 


100R motherboard, a built- 


in tape backup unit, 800K 
floppy-disk drive, 768K of 
main memory, and an 8- 
MHz 80286 central proces- 
sor. The computer has a 
suggested list price of 
$12,500. Reader Service No. 





44. 

Viasyn Corp. 

26538 Danti Ct. 
Hayward, CA 94545-3999 
(415) 786-0909 


PCMK from G. W. Glass- 
cock brings MS-DOS pro- 
grammers the power of 
the Unix make command. 
Using information stored 
in the make file and built- 
in knowledge, PCMK can 
automatically construct a 
program. Features provid- 
ed by the program are 
wildcard character expan- 
sion, full path-name sup- 
port, user-defined macros, 
access to DOS environment 
via macros, access to inter- 
nally generated macros, 
built-in rules defined by us- 
ers, and direct execution of 
commands using the envi- 
ronment Path variable. 
The price is $21. Reader 
Service No. 45. 

G. W. Glasscock 





15617 S.E. Fairwood Blvd. 
Renton, WA 98058 
(206) 271-0638 


Premier Technologies 
has announced LiteDrive, a 
portable internal hard-disk 
system to enhance the Ze- 
nith Data Systems’ Z-171 
laptop computer. The sys- 
tem adds 27 times the origi- 
nal disk capacity at up to 20 
times the access speed. The 
10-megabyte system is in- 
stalled in place of the sec- 
ond floppy and runs on 
both battery and AC power. 
Reader Service No. 46. 
Premier Technologies Inc. 
1890 McGraw Ave. 

P.O. Box 16279 

Irvine, CA 92714 

(714) 261-1184 


DDJ 


ee Se 


tik CLOSES | THING i COMMON. ceae AVAILABLE FOR YOUR PC 





RICH SET af DATA TYPES 
Bignums, for high precision arithmetic 
8087 support, for fast floating point 
Arrays, for multidimensional data 
Streams, for device-independent i/o 
| Packages, for partitioning large systems 
Characters strings bit: a 


flet, labels, macrolet, for local functions 


if, when, unless, case, cond, for conditionals 


Keyword parameters, for flexibility 
Multiple-valued functions, for clarity 
Flavors, for object-oriented programming 
Stacks, for coroutining 

neha (or Shee 


LARGE COMPLEMENT OF FUNCTIONS . 


Mappers, for functional programming 
format, for output control 

sort, for user-specified predicates 
Transcendental floating point functions 
String handling functions 

Over 400 functions altogether 


134 





| APPLICATION SUPPORT 


Save and restore full environments 
User-specified initializations 


Assembly language interface 


"HARDWARE REQUIREMENTS. 


8088 or 8086 CPU, MSDOS Operating System 


e gragearsag a 9 . 390K RAM or more 
FULL SET OF CONTROL PRIMITIVES —_———- 


IOCLISP 


51%’’ diskettes 

and manual $300.00 
Foreign orders add $30.00 for airmail. 

U. S. a included for prepaid orders. 


fa "iteaead Quality 


P.O. Box 31970 
Seattle, Washington 98103 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 


EXTENDABILITY 

defstruct, to add data types 

Macros, to add contro! constructs 

Read macros, to extend the input syntax 
Extendable arithmetic system 


_ Customizable window system 


DEBUGGING SUPPORT 
step, for single-stepping 
trace, for monitoring 
break, for probing 

inspect, for exploring 
Flexible error recovery 
Customizable pretty-printer 


MSDOS INTERFACE 
Random access files 
Hierarchical directory access 
MSDOS calls 


DOCUMENTATION 

On-line documentation of functions 
apropos 

300-page indexed reference manual 
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It'S good for your system. 


FULLY Integrated, 
Data Entry Windows! 


Complete input formatting 

Unlimited Validation 

Full attribute control 

Multiple virtual windows 

Fully automatic, collision proof overlay and 
restore 

Print to & scroll background windows 
Animated window ‘’zoom’’ 

Move, grow, shrink, hide, or show any window 
“Loop function’ allows processing while await- 
ing input 


AND MUCH MORE! 


$149.95 


Includes 100% source, tutorial, reference manual, 
examples, and sample programs. 

Specify Microsoft, Lattice v2 or v3, Computer 
Innovations, Aztec, DeSmet, or Mark Williams. Ask 
about Unix. 


100% Money Back Guarantee 
NOW ... VCScreen! 


Our new interactive screen ‘painter’ actually lets 
you draw your data entry windows! Define fields, 
text, boxes & borders. Move them around. Change 
attributes. Then the touch of a button generates C 
source code calls to the Vitamin C routines! 


$99.95 


Requires Vitamin C Library above. For IBM & 
compatibles. 


For Orders Or Information, 
(214) 245-6090 


Creative Programming Consultants, Inc. 

Box 112097 Carrollton, TX 75011-2097 
Include $3 ground, $6 air, $15 overnight 
shipping, $25 if outside USA. Texans add 64%% 
tax. All funds must be in U.S. dollars drawn ona 
U.S. bank. 


OHI 


PROGRAMMING 
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online. of. ees that you 


don’t speak of, have you pro- 
grammed in BASIC lately? BASIC, as ev- | 
eryone knows, is not an appropriate | 
language for serious software devel- | 
opment, having been expressly cre- | 
ated for teaching beginning pro- | 
_grammers to program badly. BASIC is | 


slow. BASIC encourages bad program- 
ming practices. BASIC is limited to 64K 


RAM for data. BASIC does not provide | 


a set of development tools. Conse- 


quently DDJ, although founded to put 


BASIC in the hands of programmers 


in 1976, has not wasted Lae on BA- | 


SIC recently. 

Now there are those ho argue, 
for their own mercenary purposes 
no doubt, that BASIC is becoming a se- 


rious development language. They 
| point to the impressive compiled-— 


code speed measures turned in by 
the latest implementations. But 
| should we pay any attention to ‘Hal 

Hardenbergh’s claim that he has 
benchmarked his, O71 HBASIC (née 


ee say that . 


of BASIC have evolved othe point that 
encourages | 
structured style, that case statements | 1 
talking to? If BASIC had become a seri- | ki 
ous programming language, don't 
_ they think you'd already know about 
_ it? Why you'd have! been etc arti- 
_cles about itin.... 


| the language actually. 


and multiline if-then-else structures 
| kill the taste for spaghetti code, that 

with True BASIC and QuickBAsIC the 
| language is even getting away from 


| line numbers. They argue that BASIC 


functions and subroutines are becom- 
ing more effective tools for modular- 
izing code, with more flexible param- 
eter-passing techniques and the 


possibility of defining subroutines to 


be external or internal. They talk 
about how the new versions of BASIC 
offer significant support for function 
libraries; how QuickBASIC supports 
separately compiled modules without 
a aS ee and ne Mach 2, a au 


_ | May 1986.) 


_ Which in real ee Corbett © 
tells me, means something like: “The | 


| de Satze a Sprache sich spater so- 
| prasentieren, dass man beim Lesen | 
_die Struktur des Programms erkennen 
kann.” (PC Magazin, vol. 21, no. 22, 


idea behind Pascal and ALGOL was to | 


lection of utilities from Microhelp in 
‘Marietta, Georgia, embodies a new 


method for incorporating assembly- 
language routines into interpreted B BA- 
SIC programs. 
I think these must be the same peo- 
ple who point out that the 64K mem- 


ory limitation that has kept BASIC in 
_ the toy category for years has been 
eliminated in the modern BASICs and > 


in products such as Mach 2. 


But they really show their igno- 
_rance when they point out the ease 
_of use of the new BASICs; how they 


blend characteristics of a compiler 
and an interpreter; and how the pro- 
gramming environment provided 


_ with, say, QuickBASIC is a dream. 
| Don’t they know that serious pro- 
| gramming lang lages should not be | _ 
easy to use? And then 


it’s time to take a fresh look at BASIC. 


| invent structures that would allow | 
_you to program by writing English | 
sentences that implement the pro-_ 
‘gram logic.’ The goal seems eminent- | 
ly right; it’s probably what the de- | 


signer of COBOL would say she had in | 
mind. Corbett maintains that it is ob- | 


vious that neither of them did it right. | 
He restates the goal this way: In con- | 
structing the syntax of a program-— 
ming language, how close can we get © 
to the ideal of making the efficient | 
‘implementation of the program in- 
_ the language and the clear statement g 
of the algorithm in English identical? | 


Corbett is now engaged in a massive | 


comment compilation project not | 
connected with Stan Kelly-Bootle’s © 
scheme. He argues that if we knew — 
just how programmers wanted to ex-_ 
| press their algorithms in English, we | 


they argue that 1 


Who do these people think they’ re | tion 


Last Socal I wrote about Stan Kel-_ 


ly-Bootle’s yacc (yet another com- 
ment compiler), which ignores the 


code and compiles the comments. | 


My cousin Corbett tells me that he 
was reminded of SK-B's yacc this 
week as he read something Niklaus 


Wirth said: “Die Grundidee hinter 


Pascal, wie auch schon bei ALGOL, war, 


claims, 
ready 


_ man erukiuren seen ae 


do a linguistic | analysis of program- | 


mers’ comments—along the lines of © 


the textual analyses used to establish © 


, authorship of manuscripts—to deter- | 

mine the kinds of language constructs — 
_we really need in the perfect oo 
gramming SO 


“describing the jose of programs, he | 

just the ones we are al- | 
iting—called comments— 
only spelled. better. Corbett plans to 


Michael Swaine | 
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MAKE YOUR IBM PC 
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IN JUST 5 MINUTES! 
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INTRODUCTORY 


OFFER $395 


- DON’T TAKE OUR WORD FOR IT. 
USE IT FOR 60 DAYS. IF YOU ARE 
NOT TOTALLY SATISFIED RETURN 
YT FOR A FULL REFUND. 


It sounds great; the idea of a speedup board that you can just 
pus right in as easily as putting bread in a toaster. How wonder- 
ul to be able to convert a PC or XT to a $4000 AT without the ex- 
pense. But even when you get ready to spend $595.00 you want 

to be sure your choice is the very best. 

Here at PCSG we sell our IBM PC disk access speedup software 
by the thousands. But software doesn’t do gee ve speed- 
ing up the microprocessor (or CPU) speed. As you know the mi- 
croprocessor is the brain of the computer that controls all the 
seal ae like screen updates and calculations like a spread- 
sheet makes. 





Faster and smarter than an AT — 
PCSG guarantees tt. 





We wanted to offer a speedup card that would be the comple- 
ment to our disk speedup software, (incidentally included at no 
extra charge.) We wanted it to be literally the most advanced, 
compatible and feature rich board available today. We could only 
be satisfied with a board that was the finest example of the engi- 
neering art. 

There is no question we have met our every objective by devel- 
oping and manufacturing the BREAKTHRU 286 card. This is the 
best designed and most functional speed up card available today. 
We guarantee it. 

HERE IS WHAT MAKES IT SO SPECIAL. 

First, it installs so easily. It is a half slot card, only five in- 
ches in length. You don’t even have to give up a full slot. What’s 
more, unlike competing products it works in the Compag and 
most clones. The instructions are so simple we considered show- 
ing a picture of a child putting it in. Easy diagrams show how 
you just place the card in an open slot, remove the original pro- 
cessor and connect a single cable. There is no software required. 
From that moment you are running faster than an AT. 

Second, it is advanced. The BREAKTHRU 286 replaces the 
CPU of the PC or XT with an 80286 microprocessor that is faster 


AI. 


than the one found in the AT. A 16K cache memory provides 
zero-wait-access to the most recently used code and data. In 
benchmark tests the card accelerated software programs— 
both custom and off-the-shelf anywhere from 500% to as much 
as 700%. Acceleration factor is up to 7.8x on the Norton 
SysInfotest! Wow! 

Third, you have full compatibility. All existing system 
RAM, hardware, and peripheral cards can be used without 
software modification. It operates with LAN and mainframe 
communication products and conforms to the Lotus/Intel/ 
Microsoft Expanded Memory Specification (EMS). Software 
compatibility is virtually universal. 

Fourth, it is the best there is. There are several other 
boards on the market. Some are priced about the same as the 
BREAKTHRU 286 and some are cheaper. We at PCSG have 
compared them all, but there simply was no comparison. What 
we discovered is that many cards Weir sold offer only a marginal 
speed up in spite of their claims. We found some to be merely 
versions of the obsolete 8088 or 8086, and others to be just poorly 
engineered. The 8MHz BREAKTHRU 286 is unequivocally the 
best executed and most completely reliable speedup board 
manufactured today. 

PCSG has since early 1983 dominated the lap portable market 
with ROM software such a Lucid spreadsheet and Write ROM 
that reviewers rated as excellent. We were proud to successfull 
enter the IBM PC market last year with disk access speedup soft- 
ware. Now we are so pleased with the BREAKTHRU speedup 
card. We use them on our own PC’s to make them faster than 
Al's. We are really excited about this product. 

PCSG makes the unabashed statement that the BREAKTHRU 
286 card represents more advanced technology than boards by 
Orchid, Quadram, Victor, Mountain, P.C. Tec nologies, Phoenix 
...we could go on. 

But an ad can’t let you experience it for yourself. That’s why 
we sell the BREAKTHRU 286 on a 60 day trial. If you aren’t com- 
arian satisfied return it within 60 days for a full refund. It is 
ee at $595. Call today with your MasterCard, Visa, American 

xpress or COD instructions and we will ship your card the very 
next day. 
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Why more than half a million 
people are using Turbo Pascal 


B ecause Turbo Pascal is 
faster than any other Pascal 
compiler—it’s become the 
industry standard. And 
because Turbo Pascal is 
backed by a complete range 
of “tool boxes” that give 

you most of the program- 
ming tools you'll ever need. 


The Turbo Pascal family is 
never static, but is continuously 
expanding, with new products 
like Turbo Editor Toolbox and 
Turbo Gameworks. 





The secret of software success 
is not merely low price, but top 
quality allied with complete doc- 
umentation, like our 400-page 
reference manual. 

All of which are some of 
the reasons why Turbo Pascal 
is clearly the leader, and the 
recipient of awards like PC 
Week’s “Product of the Year” 
and PC Magazine's “Award for 
Technical Excellence.” 


| yen! TNT* A 


DYNAMITE DEAL! 
“Turbo 'N Tutor 
Turbo Pascal and Turbo Tutor for 
only $125.00. You save nearly 
$15.00, and have everything you 
need to get up and go with 
Turbo Pascal! 








A whole family of tools 
Success breeds success, s0 

the Turbo Pascal family has flour- 

ished. Your choices now include: 


(] Turbo Pascal 3.0 combines 
the fastest Pascal compiler with 
an integrated development 
environment, and 8087 math 
co-processor support and Binary 
Coded Decimals. 


L) Turbo Database Toolbox 

a, perfect complement to Turbo 
Pascal. It includes a complete 
library of Pascal procedures that 
allows you to search and sort 
data, and build powerful database 
applications. 

C) Turbo Graphix Toolbox 
includes a library of graphics 
routines for Turbo Pascal pro- 
grams. Lets even beginning 


programmers create high- 
resolution graphics with an IBM,° 


yen Amazing value! Turbo 
Editor Toolbox includes 
MicroStar, a full-blown editor 
that also does windows! You 
get ready-to-compile source code and 
a 200-page manual that tells you how 
to integrate the editor procedures 
and functions into your programs. 


ye _ Turbo GameWorks 
gives you the games you 
can play, write, rewrite, bend 


and amend! Turbo GameWorks 
reveals the secrets and the strategies of 
game design. You're given source code, 
a 200-page manual, and the insight 
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Borland products include Turbo Prolog; Turbo Pascal; Turbo Pascal for the Mac; Turbo Tutor; Turbo Editor Toolbox; Turbo Database 

Toolbox; Turbo Graphix Toolbox; Turbo GameWorks; Turbo Lightning; Lightning Word Wizard; Reflex: The Analyst; Reflex for the Mac: 
Reflex Workshop; SideKick; SideKick for the Mac; Traveling SideKick; and SuperKey—all of which are trademarks or registered trademar 
of Borland International, Inc. or Borland/Analytica, Inc. Traveling SideKick is not in any way associated with Travel 


Software, Inc. of Seattle, Washington. 


CP/M-80 is a registered trademark of Digital Research, Inc. MS-DOS is a registered trademark of Microsoft Corp. IBM is a registered 


trademark of International Business Machines Corp. Hercules is a trademark of Hercules Computer Technology. 


Copyright 1986 Borland International. Bl-1082 
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4585 SCOTTS VALLEY DRIVE 
SCOTTS VALLEY, CA 95066 
(408) 438-8400 TELEX: 172373 


Turbo Pascal® 3.0 
with 8087 and BCD 


Turbo Database 
Toolbox™ 


Turbo Graphix 
Toolbox * 


Turbo Tutor® 2.0 


Turbo Editor 
Toolbox™ 


Turbo GameWorks* 
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Hercules,” or compatible graph- 
ics adapter. Does complex busi- 
hess graphics, easy windowing, 
and stores screen images to 
memory. 


CL) Turbo Tutor 2.0 teaches you 
step-by-step how to use Turbo 
Pascal, with commented source 
code for all program examples 
on diskette. 


An offer you can’t refuse 


You can save $119.75 when 
you choose the Turbo Jumbo 
Pack. Six different Turbo Pascal 
products for only $299.96. 

You get Turbo Pascal 3.0 and 
Turbo Editor Toolbox and Turbo 
Tutor 2.0 and Turbo Graphix 
Toolbox and Turbo GameWorks 
and Turbo Database Toolbox! 

So act now—rush to your 
dealer or call us today! 


Also includes MicroStar, a complete 
editor with full windowing capabilities. 
(You could pay $100.00 or more for a 
program like MicroStar, but you get it 
free as part of our Turbo Editor Toolbox.) 
You can also use Turbo Editor (which of 
course integrates with Turbo Lightning °) 
to build your own word processor! 


needed to write and customize your 
own irresistible games. 

Also includes ready-to-play Chess, 
Bridge, and Go-Moku—an ancient 
Japanese game that can diver 
reality for hours on end 


: A Telephone: 









































Y H; S | | want & 
e the best! & 
To order by phone, 
or for a dealer nearest you, 
call (800) 255-8008 § 
in CA call (800) 742-1133 
Copies Product Price Totals g 
____ Turbo Pascal3.0w/8087 &BCD"" $ 99.95 $ 
_— Turbo Pascal for CP/M-80 69.95 $ 
—— Turbo Database Toolbox 69.95 $ 
__— Turbo Graphix Toolbox ™ 69.95 $ 
—— Turbo Tutor 2.0 39.95 $ 
_— Turbo Editor Toolbox” 69.95 $ 
___. Turbo GameWorks* 69.95 $ 
_— Turbo Pascal & Turbo Tutor 125.00 $ 
—— Turbo Jumbo Pack* 299.95 $ 
[scr i 
Bi Amount enclosed $ 


Me Prices include shipping to all US cities. 
B Carefully describe your computer system: 
a Mine is: — 8-bit — 16-bit 
/ use: __ PC-DOS __MS-DOS — CP/M-80 __CP/M-86 
a My computer's name and model is: 


s The disk size / use is; 03%" 05%" 0 8" 


Payment: VISA MC Money Order Check 


Credit card expiration date ical cc 


Card # 


= 
3 
® 


Shipping Address: 


City: 


State; Zp: 


CODs and purchase orders WILL NOT be accepted by Borland. 


8 Outside USA make payment by bank draft, payable in US dollars i 


drawn on a US bank. 
NOT COPY PROTECTED 


8 s6o-paymoney-eack Guarantee Sd & 
- i It within 60 days of purchase this product does not perform & 


in accordance with our claims, call our customer service 


FA department and we will gladly arrange a refund. a 
gE All prices are suggested list prices and are subject to change eS 
a without notice. 

] i Minimum System Requirements: @ 
S ‘ Turbo GameWorks, Turbo Graphix Toolbox, Turbo Tutor, & 2 
= Turbo Editor Toolbox—192K. All other products, 128K. 


*IBM PC, PCr, AT, XT, and true compatibles. 


B **16-bit only. e 


